.TOC "UPT FORMAT" 

TOPS 20 
+ + 

I Reserved I 

377 ! ! 

+ + 

1»00 ! Reserved ! 

U17 ! ! 

4. + 

it20 I Adr of LUUO block ! 

+ + 

^21 ! User arith overflow trap ins ! 
+ + 

'»22 I User stack overflow trap ins I 
+ _+ 

k2l ! User trap 3 trap ins ! 

+ + 

i*2lt ! nuUO flags ! HUUO op code I 
+ + 

425 I nuuO old PC ! 

+ + 

lt26 ! E of nUUO ! 

+ + 

lt27 I nuuO process context word ! 
+ + 

'•30 ! Exec no trap Huuo new PC ! 

+ + 

i«31 ! Reserved ! 

'•33 ! ! 
+ ^. 

U}!* ! User no trap MUUO new PC ! 

+ + 

435 I Reserved ! 

477 ! ! 

+ + 

500 ! Page fai 1 word 1 
+ ^ 

501 I Page fail flags ! 
+ + 

502 ! Page fai I old PC ! 
+ + 

503 i Page fai I new PC ! 
+ „ ^ 

504 : Rtserved ! 

537 : ! 

+ ^ 

540 ! User section I 

I ... ! 

577 I User section 37 ! 
+ ^. 

600 I Reserved ! 

777 I ! 

+ + 



TOPS 10 



I User pg 0,,User pg 1 ! 

! User pg 776,,Jser pg 777 ! 

+ ^ 

I Exec pg 340,, Exec pg 3i«l ! 
! Exec pg 377.. Exec pg 377 I 



+ ^ 

! Page fai 1 old flags., PC I 

+ _^ 

! Page fai ! new PC ! 

+ + 

! Reserved ! 



.TOC "REGISTER USAGE' 



i 



ext 

Reg W1 

Reg 1 W2 

Reg 2 W3 

Reg 3 Wii 

Reg k W5 

Reg 3 W6 

Reg S IR 

Reg 7 PC 

Reg 10 E 

Reg 11 ne 

Reg 12 AC-OP 

Reg 13 MEn-OP 

Reg lit PXCT 

Reg 15 K 77 

Reg 16 K 777 

Reg 17 K -l.O 



Int 

PC FLAGS 

AC-OP+1 

MEH-OP+1 

EPT 

UPT 

SPT 

PMA 

TIHE 

PI REG (loads 29U status reg) 

BITi» (first part done) 

BIT12 

BIT17 

COiCI 

K 7777.-1 

K '♦07777.0 

K -1 



.TOC 



"CROf» BITS" 
.UCCOE 



In the folloMlng assume niN6 CRM 00 to be leftmost bit. 



ALU OP 0/-<0> ;2903 1 


8 






ALU SP FUN/»<0:8> 


:2903 18-10 




nUL-000 


:or 040, unsigned multiply 




TCM-100 


;or 


|l»0. Two's complement multiply 




SH-1+C B-200 


; Increment by one or two 




sn-2i»o 


: sign/magnitude two's complement 




TCH COR-300 


;or 3i»0, two's complement multiply correction 




;-'»00 


:or kkO, single length normalize 




DLN-500 


;or 540, double length normalize and first divide op 




TCDIV-600 


;or 6i»0, two's complement divide 




TCDIV COR-700 


;or 7<»0, two's complement divide correction and remainder 




ALU SHIFT/-<0:3>..DEFAULT-li» 


•.2903 18-15 




ASR F B 


"ALU 


SHIFT/0, ALU SPECIAL/0, ALU Y/YES" ;ASR F Y (J_Q 


WRITE-0 


LRS f"b 


"ALU 


SHI FT/1, ALU SPECIAL/0, ALU Y/YES" :LRS R Y Q_Q 


WRITE-1 


F LRS Y B 


"ALU 


SHI FT/1. ALU SPECIAL/0, ALU Y/NO" ;LRS R Y 


WRITE-1 


(MC F)RS n 


"«C SION SIOO QION.LRS F B.B SEL/gl" 




(HN F)RS □ 


"MN SION SIOO QION.LRS F B.B SEL/ei" 




ASRC B 


"ALU 


SHIFT/2, ALU SPECIAL/0, ALU Y/YES" ;F3 Y3;Y2 FQ/2 BQ 




LSRC~B 


"ALU 


SHI FT/3. ALU SPECIAL/0, ALU Y/YES" ; LRS F Y LRS Q_Q 


WRITE-3 


Y G QRS Q 


"ALU 


SHIFT/3. ALU SPECIAL/0, ALU Y/NO,B SEL/gl" ; LRS F LRS Q_Q 


WRITE-3 


F~B 


"ALU 


SHIFT/i»,ALU SPECIAL/0, ALU Y/YES" ;F Y Q_Q ~ WRITE-i. 




Y~B 


"ALU 


SHIFT/1»,ALU SPECIAL/0. ALU Y/NO" ; F~Y Q_Q WRITE-i» 




F~Y QRS Q 


"Al 


SHIFT/5. ALU SPECIAL/0. ALU Y/YES" ; F~Y LRS Q_Q-5 




f_Q 


"ALU 


SHIFT/6. ALU SPECIAL/0. ALU Y/NO" ; F~Y F Q-6 




F_Q_Y 


"ALU 


SHIFT/6. ALU SPECIAL/O.ALU Y/YES" ; F~Y F Q-6 




F (i_B 


"ALU 


SHI FT/7. ALU SPECIAL/O.ALU Y/YES" ; F~Y F Q WRITE-7 




Y B F Q 


"ALU 


SHIFT/7. ALU SPECIAL/O.ALU Y/NO" ;F Y F Q WRITE-7 




ALS F~[] 


"ALU 


SHIFT/10. ALU SPECIAL/O.ALU Y/YES. SIOO QIOO.B SEL/gl" 


:ALS F_Y 


LLS F B 


"ALU 


SHIFT/11, ALU SPECIAL/O.ALU Y/YES" 




F LSZ Y G 


"ALU 


SHIFT/11,0 SIOO QIOO.ALU SPECIAL/O.ALU Y/NO.B SEL/gl" 


;LLS F Y 


ALSC B 


"ALU 


SHI FT/ 12, ALU SPEc7aL/0. ALU Y/YES" :ALS F Y LLS Q_Q 


WRITE-T2 


LLSC~B 


"ALU 


SHIFT/13. ALU SPECIAL/O.ALU Y/YES" :LLS F Y LLS Q_Q 


WRITE-13 


Y_a QLS_Q 


"ALU 


SHI FT/13. ALU SPtCIAL/O.ALU Y/NO.B SEL/gl" ;LLS F Y 


LLS Q_Q H 


F Y 


"ALU 


SHIFT/U.ALU SPECIAL/O.ALU Y/YES" ;F Y Q_Q-U 




QLS_Q 


"ALU 


SHI FT/15, ALU SPECIAL/0" :F Y LLS Q_Q-15 




fjf QLS_Q 


"ALU 


SHI FT/15. ALU SPECIAL/O.ALU Y/YES" :F Y LLS Q_Q-15 
;SI0O Y Q_Q WRITE-I6 
;F Y Q_Q WRITE-17 




ALU 0P/-<i»:7>.. DEFAULT- 


'10 


;2903 U-ll 




S-R-1+C-1 








R-S-l+C-2 








R+S+C-3 








S+C-i» 








SBAR+C-5 








R+C-6 








RBAR+C-7 








LOW-10 








RBAR.AND.S-11 








R.XNOR.S-12 








R.XOR.S-13 








R.AND.S-U 








R.NOR.S-15 








R.NAND.S-16 








R.0R.S»17 









ALU IO/-<8:8>,.DEFAULT-0 ;2903 10 

Q_S "ALU 10/1" ;S operand is Q reg 

R SEL TYP/-<13:U> 

;0 reserved 
REG cXT-2 
REG t»IT-3 

LINE #_[] "R SEL TYP/1,ALU OP/R+C.O CO.F_[ei]" 

R SEL/-<9:1'»>, DEFAULT-00 
REG-EXT-02 

W1-02 

W2-06 

W3-12 

Wi«-16 

W5-22 

W6-26 

IR-32 

PC-36 

E-l»2 

nB-i»6 

AC-OP-52 

«E«-0P-56 

PXCT-62 

K 77-66 

K 777-72 

K -1.0-76 
REG-INT-03 

PC FLAGS-03 

AC-OP+1-07 

MEM-OP+1-13 

EPT-17 

UPT-23 

SPT-27 

PMA-33 

TmE-37 

PI REG-i»3 

BITli-i»7 

BIT12-53 
BIT17-57 
COICl-63 
K 7777.-1-67 
K i.07777.0-73 
K -1-77 
B SEL/-<15:20> 

REG-EXT-00 
Wl-OO 
W2-04 
W3-10 

W3-20 
W6-21» 
IR-30 
PC-3'» 
E-40 

AC-OP-50 

HEM-OP-54 

PXCT-60 

K 777-70 



K -l.C-7'* 
REG-EXT-LH-01 

W1 LH-01 

W2 LH-05 

W3 LH-n 

Wi» LH-15 

W5 LH-21 

W6 LH-25 

IR LH-31 

PC LH-35 

E LH-i»1 

HB LH-i«5 

AC-OP LH-51 

MEH-OP LH-55 

PXCT LH-61 

K 77 LH-65 

K 777 LH-71 

K -1.0 LH*75 
REG-EXT-RH-2 

W1 R:H-02 

W2 RH-06 

W3 RH«12 

Wi« RH-1>6 

W5 RH-22 

W6 RH-26 

iR RH-32 

PC RH-36 

E RH-1»2 

nB RH-lf6 

AC-OP RH-52 

MEM-OP RH-56 

PXCT RH-62 

K 77 RH-66 

K 777 RH-72 

K -1.0 RH-76 
REG-INT-03 

PC FLAGS-03 

AC-OP+l-07 

HEM-OP+l-13 

EPT-17 

UPT-23 

SPT-27 

P«A-33 

TIHE-37 

PI REG-i»3 

8m-l»7 

BIT12-53 

BITI7-57 

C01C1-63 

K 7777.-1-67 

K 407777.0-73 

K -1-77 
S SELD "B SEL/ei.ALU 10/0" 
CARRY 0P/-<21:22>,.DEFAULT-0 ;290Jt 112-111 
CO "CARRY OP/0" 

1_C0 "CARRY OP/1" 

CX_CO "CARRY OP/2" ;This is Z for ALU SP FUN stuff 

SHARED OP/-<23:28> 

SET FLAG/-<23:28> ;with shared opl».5-00 



CLEAR LOCAL 


"SET FLAG/10" 


SET GLOBAL 


"CLEAR LOCAL" 


SET LOCAL 


"SET FLAG/11*" 


CLEAR USER 


"SET FLAG/20" 


SET EXEC 


"CLEAR USFR" 


SET USER 


"SET FLAG/21*" 


CLEAR PAGED 


"SET FLAG/30" 


SET PAGED 


"SET FLAG/31*" 


CLEAR RUN 


"SET FLAG/1«0" 


SET RUN 


"SET FLAG/l*!*" 


CLEAR T0PS20 


"SET FLAG/50" 


SET T0PS20 


"SET FLAG/51*" 


CLEAR PXCT 


"SET FLAG/60" 


SET PXCT 


"SET FLAG/61*" 


CLEAR TRAP 


"SET FLAG/70" 


SET TRAP 


"SET FLAG/71*" 


SHIFT 0P/-<23:28> 


;with shared opl*,5«01 




; 2901* 19-16 Shift linkage mux 




; 2901* 110 comes from 2903 I8 


0.5 ION 0_QION 


"SHIFT OP/01, ALU OP 0/0" 


1 SI ON 1 QION 


"SHIFT OP/05. ALU OP 0/0" 


SI ON SI 00 MC 


MN QION "SHIFT OP/11. ALU OP 0/0" 


1~S'0N SI00_QI0N "SHIFT OP/15. ALU OP 0/0" 


MC SI ON SIOO_QION "SHIFT OP/21, ALU OP 0/0" 


HN SI ON SIOO~QION "SHIFT OP/25, ALU OP 0/0" 


SI ON SI 00 QION "SHIFT OP/31, ALU OP 0/0" 


sToo SI ON qToo 


QION "SHIFT OP/51. ALU OP 0/0" 


QIOO'SION SIOO' 


"qION "SHIFT OP/75. ALU OP 0/0" 



SION_MC 0_SIOO 0_QIOO "SHIFT OP/01, ALU OP 0/1" 

O_SI00 0_QI0O ~ "SHIFT OP/11, ALU OP 0/1" 

1_SI00 1_QIOO "SHIFT OP/15, ALU OP 0/1" 

SION_MC Q!ON_SIOO QIOC "SHIFT OP/21, ALU OP 0/1" 

QION~3IOO QlOO ~ "SHiFT 0P/31,ALU OP 0/1" 

SION~StOO qToN QIOO "SHIFT OP/51. ALU OP 0/1" 

SION~QIOO QION^SIOO "SHIFT OP/75. ALU OP 0/T' 



INT 0P/-<23:28> 

MASTER CLEAR'-02 

CLEAR ALL INTS-06 

CLcAR 

CLEAR 

CLEAR 

GRANT INTERRUPT 

2911* STATUS Y 

2911* MASK Y~ 

377 2911* MASK 

Y_2911* STATUS 



;with shared opl*,5'*10 2911* Instruction 



I NTS FROM Y-BUS-12 
I NTS FROM MASK REGISTER- 16 
INT LAST VECTOR READ-22 
"INT OP/26" 
"INT OP/32" 
"INT OP/36" 
"INT OP/1*?" 
"INT 0P/1*6" 





:BIT CLEAR MASK REG-52 
















:BIT SET MASK REG-56 


















000 2911* MASK "INT 


OP/62" 
















:DI SABLE INT REQ-66 


















Y 2911* MASK "INT 


OP/72" 
















; ENABLE INT REQ-76 
















5PEC 


SEL/-<23:23> :with shared 


opi*,5" 


11 Load Ram/PCI 


adr 






Y-03 ;Low 


order 12 bits 


of Y 


bus are 


Ramfile 


adr 




; If 


this is 


an I/O 


adr 


- PCI 












Y31 


is 2651 


Ai 














Y32 


is 2651 


AO 














Y33- 


35 are 


line 


nun^er 









VMA-23 

;AC+N-27 

XR-33 

PAGE TABLE ENTRY-77 



;Uses low order bits from previous spec sel/page table entry 



IW-53 



IW. 



; If bits 0,1-11 set ILLEGAL 

; else clear ILLEGAL IW. 

; If section or if bits 0.1-10 set NOT GLOBAL, 

: else CLEAR LOCAL. 

; If GLOBAL load I and index reg from 1-5, 

; else load from 13"17- 



SEL AC+[] 


"SPEC SEL/27,J.AC/ei" 








Y RAMFILZ ADR 


"SPEC SEL/Y" 










Y_TTY ADR 


"Y_RAMFILE ADR" 










AMD2901* l5-lV-<29:30> 


;290i4 15-li. 










MX Y 


"AMD2901* l5-li*/i 


., STATUS 


._Y,ALU_Y/NC 


I" 




MX_[] 


"MX_Y,Y 


cei]" 










F_Q MX_[] 


"AMD290i» \5-\'*/2 


. , STATUS 


._Y,F_Q Y_[ei]" 




ux_[] 


"STATUS 


OP/01, ST ATUS_Y, 


Y_[ei]" 






STATUS 0P/-<29:3''>..r^EFAULT-20 


;290^ l« 


;-io 








Y MX 


"STATUS 


OP/00, M 


STATUS 


ENAB/YES" 






MX_UX Y_MX 


"STATUS 


OP/00, M 


STATUS 


ENAB/YES,U 


STATUS 


ENAB/YES" 


;MX_UX-0 


;Copy Mx to ux 










1_UX 


"STATUS 


0P/01,U 


STATUS 


ENAB/YES" 






1 MX 


"STATUS 


OP/Ol.M 


STATUS 


ENAB/YES" 






MX UX UX MX 


"STATUS 


OP/02, M 


STATUS 


ENAB/YES. U 


STATUS 


ENAB/YES" 


MX~UX 


"STATUS 


OP/02, U 


STATUS 


ENAB/YES" 






UX~MX 


"STATUS 


OP/02, M 


STATUS 


ENAB/YES" 






o_ux 


"STATUS 


OP/03, u 


STATUS 


ENAB/YES" 






0~MX 


"STATUS 


OP/03, M 


STATUS 


ENAB/YES" 






IXIUOVR UX 


"STATUS 


OP/06, U 


STATUS 


ENAB/YES" 






IXIMOVR MX 


"STATUS 


OP/06. M 


STATUS 


ENAB/YES" 






UZ 


"STATUS 


OP/10, U 


STATUS 


ENAB/YES" 






1 UZ 


"STATUS 


op/n,u 


STATUS 


ENAB/YES" 






bC 


"STATUS 


OP/12, U 


STATUS 


ENAG/YES" 






1 UC 


"STATUS 


OP/13. U 


STATUS 


ENAB/YES" 






0~UC IX_MX 


"STATUS 


OP/12, U 


STATUS 


ENAB/YES, M 


STATUS 


ENAB/YES" 


1_UC IX~MX 


"STATUS 


OP/13. u 


STATUS 


ENAB/YES, M 


STATUS 


:nab/yes" 


UN 


"STATUS 


OP/U,U 


STATUS 


ENAB/YES" 






1 UN 


"STATUS 


OP/15. u 


STATUS 


ENAB/YES" 






UOVR 


"STATUS 


OP/16, U 


STATUS 


ENAB/YES" 






1_U0VR 


"STATUS 


OP/17, U 


STATUS 


EWAB/YES" 






IX UX 


"STATUS 


OP/20, U 


STATUS 


ENAB/YiS" 






IX_MX 


"STATUS 


0P/2C,M 


STATUS 


ENAB/YES" 






IX'ICBAR UX 


"STATUS 


OP/30, U 


STATUS 


ENAB/YES" 






IX ICBAR_MX 


"STATUS 


OP/30, M 


STATUS 


ENAB/YES" 






; Carry operation 














MC_C 


"CA-^RY OP/3, STATUS 0PA7" 






MC C IX MX 


"CARRY DP/3. STATUS 0P/1»7.H STATUS 


ENAB/YES" 


MC~C iX UX 


"CARRY OP/3. STATUS 0P/1.7.U STATUS 


ENAB/YES" 


ucic 


"CARRY OP/3, STATUS OP/0" 






;Test conditions 














: U is micro status; M 


is machine status; 1 is current status 


; Z is zero; N 


is negat 


ive; OVR 


is overflow; C is 


carry 




; 1 is inclusive or; X 


is xor; & is and; E is xnor * equ 


i valence 


(UNxUOVR) lUZ 


"STATUS 


OP/00" 










(MNxMOVR) IMZ 


"STATUS 


0P/i«0" 










MNxMOVR 


"STATUS 


0P/1«2" 










(INxlOVR) IIZ 


"STATUS 


OP/60" 











uz 




"STATUS 


OP/Oi»" 


;u-Zero 


UZ IX NX 




"STATUS 


OP/Oit.N 


STATUS ENAB/YES" 


fM 




"STATUS 


OPAi»" 




MZ IX NX 




"STATUS 


OP Ai»,N 


STATUS ENAB/YES" 


NZ IX~UX 




"STATUS 


OPAA.U 


STATUS ENAB/YES" 


IZ 




"STATUS 


0P/6A" 




IZ IX ux 




"STATUS 


0P/6i»,U 


STATUS ENAB/YES" 


IZ IX~NX 




"STATUS 


0P/6i«,N 


STATUS ENAB/YES" 


NOT UZ 




"STATUS 


OP/05" 




MOT NZ 




"STATUS 


OP/i.5" 




MOT IZ 




"STATUS 


OP/65" 




UOVR 




"STATUS 


OP/06" 


;u-overf low 


UOVR IX_NX 




"STATUS 


OP/06. N 


STATUS ENAB/YES" 


NOVR 




"STATUS 


0P/i»6" 




lOVR 




"STATUS 


OP/66" 




lOVR IX_NX 




"STATUS 


OP/66, N 


STATUS ENAB/YES" 


NOT UOVR 




"STATUS 


OP/07" 




NOT NOVR 




"STATUS 


0P/i»7" 




NOT lOVR 




"STATUS 


OP/67" 




NOT iOVR IX 


_NX 


"STATUS 


OP/67, N 


STATUS ENAB/YES" 


uc 




"STATUS 


OP/12" 


•,u-carry 


NC 




"STATUS 


OP/52" 




IC 




"STATUS 


OP/72" 




NOT UC 




"STATUS 


OP/13" 




NOT t^C 




"STATUS 


OP/53" 




NOT IC 




"STATUS 


OP/73" 




UN 




"STATUS 


OP/36" 


;u-negative 


UN IX_NX 




"STATUS 


OP/36, N 


STATUS ENAB/YES" 


UN IX~UX 




"STATUS 


OP/36, U 


STATUS ENAB/YES" 


NN 




"STATUS 


OP/56" 




NN IX NX 




"STATUS 


OP/56. N 


STATUS ENAB/YES" 


NN IX UX 




"STATUS 


OP/56. U 


STATUS ENAB/YES" 


IN 




"STATUS 


OP/76" 




IN IX NX 




"STATUS 


OP/76. N 


STATUS ENAB/YES" 


NOT UN 




"STATUS 


OP/37" 




NOT NN 




"STATUS 


OP/57" 




NOT IN 




"STATUS 


OP/77" 




UCIUZ 




"STATUS 


OP/ 10" 




UC&UZ 




"STATUS 


OP/ 11" 




NOT UC!UZ 




"STATUS 


OP/3't" 




UC&NOT UZ 




"STATUS 


OP/35" 




INxorNN 




"STATUS 


OP/ 16" 




U STATUS ENAB/-<35: 


35>. 


.DEFAULT- 


■ 1 




YES-O 










NO-1 










. STATUS ENAB/-<3C: 


36>. 


.DEFAULT' 


• 1 




YES-O 










NO-1 










ALU Y/-<37:37>.. DEFAULT 


-0 


:2903 




NO-O 










YES-1 










U PROG 0P/-<38:1»1>, 


.DEFAULT-16 


;2910 13-10 


JZ-O 










CJS*1 










JNAP-2 










CJP-3 










PUSH-i» 










JSRP-5 











JRP-7 

RFCT-10 

RPCT-11 

CRTM-12 

CJPP«13 ; Cond i t i ona 1 Jump pipeline and pop 

LDCT-11» 

TECL-15 
CONT-16 

TWB-17 



.TOC 



TEST SEL' 



;2904 CT - MINI STATUS TEST 



TEST SEL/-<it2:i»7> 
NEVER-00 
ALWAYS-01 
CT-02 
NOT CT-03 
NOT INDEXED«01» 
INDEXED-05 
AC. EQ. 0-06 
ACNE. 0-07 
INDIftECT-10 
NOT INDIRECT- 11 
NOT (I OR XR)-12 
I OR XR-13 
ILLEGAL IW-li« ;Slgna1 from SPEC SEL/IW 

: - <not section 0> and <bitO,bit1" 
NOT ILLEGAL IW-15 



11) 



GLOBAL IW-16 

LOCAL IW-17 

NO PI REQ-20 

PI REQ-21 

NOT AC REF-22 

AC REF-23 

LEGAL SECTI0N-2i» 

ILLEGAL SECTION-25 

NOT SECTION 0-26 

SECTION 0-27 

CONTEXT MATCH-30 

NOT CONTEXT MATCH-31 

NOT HEM FA'JLT-32 

MEM FAULT-33 

LOCAL-3'* 

GLOBAL-35 

USER-36 

EXEC-37 

PAGED-40 

NOT PAGED-**! 

RUN-Jt2 

NOT RUN-i»3 

T0PS2O-lfi» 

T0PS10-1»5 

PXCT-i»6 

NOT PXCT-it7 

B BIT 3-50 ; 

NOT B BIT 3-51 

;B BIT l»-52 : 

;NOT B BIT 4-53 

B BIT 9-5i» 

NOT B BIT 9-55 

B BIT 18-56 ; 

NOT B BIT 18-57 

ANY BUS ERR0R-6O 
NO BUS ERROR-61 
NOT AC LOW-62 
AC L0W"63 
:L0CK-6i» 
;NOT LOCK-65 



gnal from SPEC SEL/IW 

<not section 0> and <bitO=l> 
e. something wants to interrupt 



i.e. no match, AC ref, or not paged 



;Not exec 

;PAGED and NOT AC REF 

:AC REF or NOT PAGED 



i.e. bit 3 on B port register is set 
i.e. bit 4 on B port register is set 

i.e. bit 18 on B port register is set 



TRAP"66 

NOT TRAP-67 

MEM EXISTS-yO 

NOT MEM EXISTS-7^ 

UNPAGED OR AC-72 

NOT UNPAGED OR AC-73 

NOT TIMER FLAG-7'* 

TIMER FLAG-75 

;-76 

;-77 

NOT MF S NOT PXCT«62 



.TOC " J" 
J.AC/-<52:55> ;'♦ bits 

J/-<i»8:59>. .ADDRESS, .DEFAULT-0 
U-CODE VERS I 0N-i»OO2 
;EPT offsets 
PFW-500 
ESECT-540 
;UPT offsets 
; Console error codes 
ERR.URC-1 
ERR.NWR-2 
ERR.NEA-3 
ERR.NXA-1« 

ERR.MER-5 
:PCI hdw bits 
AO-OlO 
A 1-020 
A1 lAO-030 
TXEN-001 
RXEN-OOlt 
;Ramf i 1e offsets 
BYTE MASK-000 

PAGE # MASK-011 

10B r'.ASK«012 

128 MASK-OU 

SECTION # MASK-OU 

I3B MASK-015 

22B MASK-026 

23B ttASK-027 

2i»B MASK-030 

27B rtASK-033 

3OB MASK-036 

32B MASK-0i»0 

JFCL MASK-Oi.0 ;bits k-^S 

33B MASK-041 
; Locations ^5"77 contain -1 



in J field for AC+[] 



;Version of u-code 



;Page fai 1 word 
; Sect ion pointers 



; Unrecognized connmand 

;Not while machine is running 

;Not enough arguments 

;Non existent address 

; Memory error 



adr for read status or write syn/syn/dle 
adr for MRI/MR2 



;PCI 

5 PCI 

;PCI adr for CR 

;Transmitter enable 

; Receiver enable in 



I n 
CR 



CR 



;Fol lowing are "byte masks" 
-.bits 23-35 (9 bits) 
; 10 bits 

;bits 2i«-35 (12 bits) 



;Set of si iding bits 
BITO-100 

OVERFLOW- 100 
BITl-101 

CARRY C-101 
BIT2-102 

CARRY 1-102 
BIT3-103 

FLOATING OVERFLOW-103 
BITi»-10it 

FIRST PART D0NE-10i» 
BIT5-1C5 

USER-105 
BIT6-IO6 

USER 10-106 

PCU-106 
BIT7-107 

PUBLIC-107 
BIT8-nO 

ADDRESS FAILURE INHIBIT-110 
BIT9-111 

TRAP 2-111 



; Previous context user 



BmO-112 
TRAP l«n2 

BiTn-113 

FLOATING UNDERFLOW-113 
BIT12-1U 

NO 0IVIDE>1U 
BITI3-II5 
BITli»-ll6 
BITI5-II7 
BIT16«120 
BIT17-121 
BITI8-I22 
BITI9-I23 
BIT20-12i: 
BIT21-125 
BIT22-126 
BIT23-127 
BIT2U-130 

BIT25-I3I 
BIT26«132 
BIT27-133 
BIT28-13'* 
BIT29-135 
BIT3O-I36 

3IT31-137 
BIT32-litO 

BIT33-l'»l 
BIT3'»-1^2 

BIT36«li»i» ; Phoney location 



PUSH J FLAGi-ll»5 

;UNUSED'-1it6 

;MASK12-22-lit7 



: Flags to clear on a PUSHJ -021600.. 



ME RCOVR-150 
HALT CODE-151 

HALT INS-1 
HALT CONSOLE-2 
HALT SI -3 
HALT PFMER-4 
HALT HSBMER-5 
HALT ADRBRK-10 
HALT lOPF-lOO 
HALT ! I 1-101 
HALT DSP-1000 

HALT HME-1001 
HALT SUP-1005 
HME GTS- 152 



NXM STS"15i. 



Memory erro'' recovery routine adr 
Halt code 

-1 - tio a console command 
ISP JRST U, 
Console command 
Single instruction 

Memory errors, while handling page fault 
Memory error while writing HSB 
Address break 
10 cage fii lure. 
Illegal interrupt instruction 
lllrgal u-code dispatch 

Or GLOBAL at I FETCH 
Hard memory error 
Startup check 
Hard memory error status 

Ih 2-Bus fault 1 ine. 
3"Bus parity error into CPU 

rh is status froip memory 
Hard memory error address 
Hard merory erro»- data 
NXM memory error status 

lh".,,rh is status from memory 
Soft nemory error address (^.CC correctable) 
Soft memory error data 



SME STS-160 



INT RCOVR-163 
PF RC0VR-I6it 



TTYRCV 


BITS-177 


:Hsre begins 1 


ne block for 1 i ne 


; See PCI section for pictures 


LNOSW-200 




LS.PI-7 




LS.CLS-10 




LS.X0FF«20 




LS.XOFF.ENAB-itO 




LS.RGO-100 




LS.RDN-200 




LS.REN-i»00 




;LS.XG0-1000 




LS.XDN«2U00 




LS.XEN*i»000 




:LS.RESET-10000 




;LS.DSCHG-20000 




;LS.DSENB-40000 




;LS.RMER- 100000 




;LS.XMER-20000C 


LNOHDW-201 


LNXMDW' 


'1 


LNXSYN= 


=2 


LNXCRC' 


'3 


LNXXHD> 


'k 


LNXXCHR-5 



LNXRHD-6 

LNXRCHR-7 
;Here begins line block for 

LNlSW-210 
;Here begins line block for 

LN2SW-220 
;Here begins line block for 

LN3SW-23O 
;Here begins lina block for 

LNi»SW-2itO 
;Here begins line block for 

LN5SW-250 
;Here begins line block for 

LN6SW-260 
;Here begins line block fo"- 

LN7SW-270 

LNZSW-300 

CMDFLG-300 
F.0-1 
F.S-2 
F.0!F.S-3 



;Soft memory error status 

; lh«2,,rh is status from memory 

;Soft memory error address (ECC correctable) 

;Soft meirory error data 

;Where to go if interrupted while not running 

;Routine to go to if encounter page fail 

iBit for each receiver which has gone off 


Line status word 

Mask for PI channel 

Close receive buffer 

Xoff flag 

Xoff enable 

Receiver go 

Receiver done 

Receiver enable 

Transmitter go 

Transmitter done 

Transmitter enable 

Reset 1 ine 

Dataset change 

Oataset enable 

Receiver nxm or memory err 

Transmitter nxm or memory err 

Mode word for CTY 

Offset for mode word 

Offset for synch word 

Offset for CRC word 

2-17 " xmt crc calculation 

20-35 " rev crc calculation 
Offr»et for adr of transmit header 
Offset for (DDT mode) transmit char 

non DDT mode 

0-11 count of bytes left 

12-1 J byte number in word 

l'»-35 current word physical adr 
^or adr of receive header 
for (DDT mode) receive char 



ine 



me 



me 



me 



me 



me 



me 



Offset 

Offset 

1 

Line 

2 

Line 

3 

Line 

Line 

5 

Line 

6 

Line 

7 

Line 

End 



1 status word 

2 status word 

3 status word 
k status word 

5 status word 

6 status word 



7 
of 



status word 
1 ine block 



Flags for CTY/KLINIK 
'^O has been typed 
Xoff has been typed 



1 ine 



; F.USR-BITi» 

CNORPT-301 

CHRPTR-302 



C«RTKR«303 

CHRBUF-30'« 
CMRBUF- 1-303 
CMRBUF END-337 
CHDPTR-3'»0 

CMDTKR-3'*! 



CMDBUF-3'*2 
CMDBUF- 1-3^1 
CnOBUF END-iiO? 



CTY 1 ine is in User 


mode 


Repeat counter 




Putter for command response buffer 


Byte pointer format 




bits 0-17 


byte number 


bits 18-35 


ramf i le adr 


ramf i le word adr 




bit 


unused 


bits 1-7 


1st byte = k 


bits B-\k 


2nd byte - 3 


bits 15-21 


3rd byte « 2 


bits 22-28 


i»th byte - 1 


bits 29-35 


5th byte « 


Taker for command res 


.ponse buffer 


Format same as CrtRPTR 


Command response buff 


"er 



End of command response buffer 

Pointer to put command characters into buffer 

Format same as CMRPTR 
Pointer to take command characters from buffer 

Format same as CNRPTR 

Only nonzero if a break has been typed 
Command buffer 



MB REFIL-Ul 

.IF/FTADRB 

AB IF-i»i»2 
AB WR"i»i*3 
AB RD>i»i*i« 

.ENDIF/FTADRB 



;Save MB here for a page refil 



: Address break instruction fetch 
; Address break write 
; Address break read 



EXn ADR-<»<45 

EIS W1-i»i»6 

EIS W2-U7 

EIS W3-ii50 

EIS Wi»-i«51 

EIS W5»li52 

EIS W6-Ii53 
NBBYTEl-lt5Jt 

NBBYTE3-'»55 
Xl-J*5'< 

X2-ii55 



;Last memory adr examined or deposited 



; Extend 
; Extend 
: Extend 
: Extend 
; Extend 
; Extend 
;Bits 0-8 
:Bits 18-26 



nstruct ion 
nstruction 
nstruct ion 
nstruction 
nstruction 
nstruction 



saves W1 here 
saves W2 here 
saves W3 here 
saves W4 here 
saves W5 here 
saves W6 here 



; Temporary location 



.IF/0EBUC3 

POOP FLAG-520 

.EI4DIF/DEBUG3 

CLK W2-535 
CLK W3-536 
HE w 1-537 

HE W2-5*0 
WRtO THP-5iil 
HSB-553 
HSB HB«55'> 

HSB PnA-555 

APR FLAGS-556 



:Save W1 here on aeaory error 

;Save W2 here on memory error 

:Temporary location for WRIO 

: Address of halt status block 

;Save HB here when writing HSB 

:Save PM here when writing HSB 

;Bits 6-13 are flags which are enabled 



PI 
PI 



IN PROG-557 
SFT REQ-560 



PI LVL REG-561 

PROC REG-562 

RF PROC REG-563 

TIME INTERVAL-564 

INTERVAL COUNTER-565 

TIME BASE-566 

TIME BASE+l-567 

CST-571 

CSTMSK-572 

CSTDATA-573 

AC BLOCK-57't 

P AC BLOCK-575 

PCS-576 

AC 0-600 

AC 1 0-620 

AC 2 0-6i»0 

AC 3 0-660 

AC k 0-700 

AC 5 0-720 

AC 6 O-7l»0 

AC 7 0-760 

PAGE TABLE- 1-777 

PAGE TABLE-1000 



bits 2'»-31 are flags which are set 

bits 33-35 is 'PR PI level 
Interrupts in progress in bits 29-35 
Software PI requests 

Bits 28-35 are software requests 

bits 10-17 are tty/apr requests 
bit is PI system on/off flag 

bits 29-35 are levels on 
Processor register 

For picture see SET PROC 
Last word we wrote in hdw 
Time interval 
Count i t here 
Two words of time (kept 
Low order word of time 



REG 
PROC REG 



n u-sec) 



;Current AC block 
;Previous context AC l)lock 
;Previous context section 



MAP SEL/-<1»8:51> 

DISPATCH 1-10 

OPERAND FETCH-10 
DISPATCH 2-11 

INST EXCT-11 
DISPATCH 3-12 

OPERAND STORE- 12 
DISPATCH 4-13 
:DISPATCH 5- 111 
;DISPATCH 6-15 
;OISPATCH 7-16 

10 0-16 

:DISPATCH 8-17 
MISC-17 



«E« 0P/-<6O:62>..DEFAULT-7 

«E« HOLD "«EM OP/0" ; Don't release memory 

HEH START READ "HEN OP/l.XFER «EM,1_SI0N 1 QION. ALU_Y/YES" ;Start memory withllF fr 
MEM START WRITE "MEM 0P/2,XFER MEM, 1_SI0N rQION, ALU_Y/YES" -.Start memory with adr fr 
START 10 READ "MEM 0P/3.XFER MEM,1_SI0N TqiON.ALU Y/YES" ;Start 10 read with iiddr« 
"MEM 0P/i»,XFER M£M.i_SION 1_QI0N, ALU~Y/YES" :Start 10 write with addr 
"MEM 0P/5,XFER MEM" ;Transfer 10 (on MEM bus) 

"Y_[ei],ALU_Y/NO,IO TRANSFER, XFER MEM,IX_MX" 
"ALU_Y/YES.IO TRANSFER, XFER MEM, 1 SI ON 1 QION,IX_MX" 
"MEM OP/5. XFER MEM" :Transfer MEM 

"ALU_Y/YES.MEM TRANSFER, XFER MEM, 1 SION 1_QI0N,IX MX" 
"[ei]_[ei].ALU MEM" 

"Y_[ei],ALU_Y/NO,MEM TRANSFER, XFER MEM, I X MX" 
"Y [ei].ALU_Y/NO,MEM OP/5, LOAD IR,IX_MX" ~ 
"MEM OP/6" : Reserved 

"MEM OP/7" ; Allow data channels 



START 10 WRITE 
10 TRANSFER 

I0_[] 
ALU 10 
MEM TRANSFER 
ALU_MEM 
n.MEM 
MEM □ 
MEM~IR [] 



ALLOW DCH 
Y SEL/"<63:66>,.DEFAULT«0 

XFER PIPELINE "Y SEL/1" 

JD_Y21«-Y35 "J/ei.XFER PIPELINE, ALU Y/NO,D SEL/J" 
FJn.D "J[ei]_Y2i«-Y35.Y [82]" " 

f_Q fJ[]_C] "JCei]_Y2l»-Y35,F_Q Y_[e2]" 



js[]_n 

ALU_CTR 
J[]_CTR 
DISP D_Y 
XFER MEM 
ALU_PCI 
PCI_ALU 
ALU_RAMF I LE 
[]~RAMF I LE 
RAMFILE Y 

RAMFILE_[] 
ALU MR2 
STATUS_Y 
SWAPPER Y 
SWAP □_□ 



;bits 0-23 from F, bits 2i»-35 fre 
;bits 0-23 from F, bits 2'»-35 frc 



"ZERO F.FJCei] [82]" 

"ZERO F.J[ei]_Y2it-Y35.B SEL/e2, 1_SI0N 1_QI0N,F_LRS Y_B" ;BitO or J_[] 

"0NES_F,FJ[ei] [62]" 

"[ei]_F.J[e2]_Y2i.-Y35.Y [83]" 

"ALU_Y/YES,XFER PIPELINE, D SEL/Y" 

"J/81,D SEL/J, U PROG OP/LDCT" 



bits 0-23 or JD_C1 

bits 0-23 from R SEL, bits 2i»-35 

Don't need U PROG OP 

Load 2910 counter from J .fj^d 

VEF 



.fiAJ 
"XFER PIPELINE, ALU_Y/NO, MAP SEL/ei.D SEL/MAP,U PROG OP/CJV,TEST SElM 
"Y SEL/2" : Enable MEM bus transceivers 
"ALU_Y/YES,Y SEL/3" 
"ALU_Y/NO,Y SEL/3" 
"ALU_Y/YES.Y SEL/^*" 
"[K -l]&[ei]_Y,ALU_RAMFILE" 
"ALU_Y/NO,Y SEL/i»" 
"RAMFILE Y,Y [81]" 

"Y sel/5Talu~y/yes" 

"Y SEL/6" 

"R SEL TYP/REG EXT,ALU_Y/NO.Y SEL/?" :A bus swapped goes to Y 

"SWAPPER_Y.R SEL/ei.Y [82]" 
SWAP □ D F Q "SWAPPER_Y,R SEL/81 .Y~[82] F_Q" 
ALU_PROC REG "Y SEL/IO, ALU_Y/YES" ~ 
LOAD IP "Y SEL/1 1" ;This implies transfer mem 



T/-<67:69>, .DEFAULT-0 
MARKl/"<70>, .DEFAULT-0 
MARK2/-<71>, .DEFAULT-0 



;Time 



;Fonowing are dunmy fields 



D SEL/-<7'»:75> 

J-1 

MAF-2 

Y-3 



Dummy field to detect D Bus select errors 

0-J_D; 1-Map or V D; 2-Y D 
J D 
MAP D 
Y D~ 



ALU SPECIAL/-<76:76> :N0NZER0 IF SPECIAL ALU OP 
REP/-<77:77>,. DEFAULT-0 ;Set to one if repaiative instruction 
NRFRD/-<78:78>..OEFAULT-0 ;New adr for ramfile read 



LCTXT«/-<79:79>..DEFAULT-0 ;Latch context match 

.IF/FTCRAH 

CRAn/-<80:80>..DEFAULT-1 :Running in cram 

^EMOIF/FTCRAN 
|PrEE/-<81:83>..DEFAULT-0 



.TOC 



"MACROS' 



NOOP 



"U PROG OP/CONT" 



JD D 


GOTO Y 


CALL Y 


GOTO n 


GOTOP □ 


POP 


CALL [] 


RETURN 


RFCT 


LOOP □ 


TWB [] □ 


PUSH 


PUSH Ja_CTR 


IF D THEN □ 


IF □ THENP □ 


IF □ THEN Y 


IF □ CALL □ 


IF □ JSRP [] 


IF n D □ 


IF [] RETURN 


IF CT □ THEN □ 



IF CT □ THENP [] 

IF CT □ THEN Y 

IF CT [] CALL [3 

IF CT [] JSRP U 

IF CT n RETURN 

IF CT n DC] 

IF NOT CT [] THEN [] 

IF NOT CT □ THENP [] 

IF NOT CT □ THEN Y 

IF NOT CT [] CALL [] 

IF NOT CT □ JSRP D 

IF NOT CT [] RETURN 

IF NOT CT [] D □ 

DISP [] 
DISPATCH □ 

JC3_RA«FILE ADR 

Y_D F_Q 

F Q RA«FILE_[] 

fJLD 

ROR F □ 
F ROR Y D 
F~Y LSRQ_Q 
F Y RORQ_Q 
LSZ F B 
LSZ fID 



"J/ei,D SEL/J" 

"XFER PIPELINE. ALU_Y/YES,U PROG OP/CJP,TEST SEL/ALWAYS.D SEL/Y" 

"XFER PIPELINE, ALU~Y/YES,U PROG OP/CJS,TEST SEL/ALWAYS.D SEL/Y" 

"TEST SEL/ALWAYS.U PROG OP/CJP,J[ei] D" 

"TEST SEL/ALWAYS.U PROG OP/CJPP. J[ei]_D" ;Goto and pop stack 

"TEST SEL/ALWAYS.U PROG OP/TEOL" 

"TEST SEL/ALWAYS.U PROG OP/CJS, J [ei]_D" 
"TEST SEL/ALWAYS.U PROG OP/CRTN" 

"U PROG OP/RFCT" 

"J[ei]_D.U PROG OP/RPCT" 

"ei.JCi2J_D,U PROG OP/TWB" 

"TEST SEl7nEVER.U PROG Or/PUSH" 

"TEST SEL/ALWAYS.U PROG OP/PUSH, J [ei]_D" 

"TEST SEL/ei.U PROG OP/CJP, J [e2]_D" 

"TEST SEL/ei.U PROG OP/CJPP, J Ce2]_D" ;lf branch also pop 

"TEST SEL/ei.U PROG OP/CJP. XFER PIPELINE, ALU Y/YES.D SEL/Y" 

"TEST SEL/§1,U PROG OP/CJS. J [§2] D" 

"TEST SEL/ei.U PROG OP/JSRP, J[e2l_D" 

"TEST SEL/ei.DISP [62]" 

"TEST SEL/ei.U PROG OP/CRTN" 

"TEST SEL/CT.ei.U PROG OP/CJP. J [e2]_D" ;CT is 2904 STATUS TEST 

"TEST SEL/CT.ei.U PROG OP/CJPP, J [e2]_D" 

"TEST SEL/CT,ei,U PROG OP/CJP. XFER PI PEL INE. ALU_Y/YES,D SEL/Y" 

"TEST SEL/CT.ei.U PROG OP/CJS. J [e2] D" 

"TEST SEL/CT.ei.U PROG OP/JSRP. J [e2T_D" 

"TEST SEL/CT.ei.U PROG OP/CRTN" 

"TEST SEL/CT.ei.DISP [62]" 

"TEST SEL/NOT CT.ei.U PROG OP/CJP. J [e2]_D" 

"TEST SEL/NCT CT.ei.U PROG OP/CJPP. J [62] D" 

"TEST SEL/NOT CT.ei.U PROG OP/CJP, XFER pTpELINE.ALU Y/YES.D SEL/Y" 

"TEST SEL/NOT CT.ei.U PROG OP/CJS, J [e23_D" 

"TEST SEL/NOT CT.ei.U PROG OP/JSRP. J[e2] D" 

"TEST SEL/NOT CT.ei.U PROG OP/CRTN" 

"TEST SEL/NOT CT. 61. DISP [62]" 



"nAP SEL/ei.D SEL/MAP.U PROG OP/CJV" 
"TEST SEL/ALWAYS.D ISP [61]" 

"J[ei]_Y2i»-Y35,ALU_Y/N0,Y_RAMFILE ADR" 

"B SEL/ei.Y_B" 

"B SEL/ei.Y_B F_Q" 

"B SEL/61,Y_B F Q" 

"B SEL/61.F_B" ~ 

"F Q Y_[e2].RA«FILE_Y" 

"B~SEL/61.F_Q_B" 

"LRS F_B.SIOO_SION QIO0_QI0N.B SEL/ei" ;ROR F_ 

"F_LRS Y_B.SIOO_SI0N QlOO QION.B SEL/61" 

"F~Y QRSlQ,0_SiON 0_QION"~ ;Ri9ht shiic Q, 

"F_Y QRS~Q,ST00 SI ON QlOO QION" ;Right shift Q. 

"LLS F B,0_SI0O~0 QlOO" 

"LSZ F~B,B SEL/61" 



Q_Q WRITE" 
;ROR F_ Q_Q 
shift in 
shift in 



WRI 



ROL F B 
ROL F^D 



il 



ERO_F 

ERO Y 

'ZERO~[] 



ONES F 
ONESln 

BITO_C] 

Q+C_F 
Q+1_F 

a_F 

Q_Y 

Q_i:i 

□ +C_F 

□ _f 

n_Q 

[] Q RAMFILE_[] 

□In 

B[]_F 

2*Q_Q 

i*Q_[] 
*n_Q 
2*a □ 
2*(a+n)_B 
'•*n_B 

COMPLEMENT [] F 
COMPLEMENT Q_? 

ASR []_□ 
ASR □_□ MC 
ASRC □_□ 

ROR a.n 

ROR F B ROR Q_Q 
F LRsID 

F LRS~n Si 00 MC 
LRS □_[] 
RORC []_[] 
LSRC □_[] 

ROL []_[] 

ROL [] [] ROL Q_Q 

LLs Din 

LLS □_[] LLS Q_Q 
ROLC D □ 
LSC □_□ 



4 

^ 



EGATE Q_F 



□ BAR+C_F 
NEGATE Dj 



"LLS F B.SION SIOO QI0N_QIOO" ;LLS F Y 
"ROL F_B,B SEL/ei" ;LLS F^Y 

"ALU OP/LOW" 
"ZERO F,F_Y" 
"ZEROlF,F_[ei]" 

"ALU OP/0,ALU 10/1" 
"ONES_F,F_[ei]" 

"ZERO_F.LRS F_B.1_SI0N 1_QI0N,B SEL/gl" 

"Q_S,ALU OP/S+C" 
"1_C0,Q+C F" 
"Q*'[K -OIf" 
"Q_F,F_Y" 

"Q_F.F_tei:" 

"R SEL/ei.ALU OP/R+C" 

"[ei]+C_F,0_CO" 

"Cei3_F,F_Y" 

"CS1]_F.F_Q" 

"[ei]_F.F_Q Y [e2].RAMFILC Y" 

"[ei]_F.F_ce2T" 
"[ei]_F,F_Q_Le2]" 

"S SEL[ei],0_CO,ALU OP/S+C" 

"QLS_Q,0 SIOO QlOO" 

"Q_F,LSZ~F_[ei3" 

"R SEL/ei.S SELCeO.O CO, ALU OP/R+S+C , F_Q" 

"[ei]_F,LSZ F_[e2]" 

"Cei]+Ce2] F.LSZ F_B" 

"2*([§l]+[il])_B" 

"R SEL/ei.ALU OP/RBAR+C.O CO" 
"Q_S.ALU OP/SBAR+C,0_CO" ~ 



0,Q 
Q_3 



WRITE-n 
WRITE-n 



[ei]_F,B SEL/e2,LRS F_B,MN_SION SI00_QI0N" 
[ei]_F,B SEL/e2,LRS F_B.0_SI0N SIOO MC MN_QION" 
[ei]_F.B SEL/e2.ASRC_B.MN SION SIO0~QI0N" 
[ei]_F.B SEL/e2,LRS F_B,sToO SION qToO QION" 
LSRC_B,SlOO_SION QI00_QI0N" ~ 
B SEL/ei.LRS F_B.0_SI0N 0_QION" 
B SEL/61.LRS fIb.oIsiON SIOO MC MN QION" 
"[ei]_F.F LRS_[§2]" 

"[ei]_F.B SEL/e2,LSRC B.QIOO SION SI0O_QI0N" 
"[§1]_F,B SEL/e2,LSRClB,0_SI0N SI0O_QI0N" 

"[ei]_F.B SEL/§2,R0L F_B" 

"[ei] F.B SEL/82,LLSC B,SI0N_SI00 QI0N_QI0O" 

"[gl] F.LSZ F [82]" 

"CeO.F.B SEL/e2.LLSC_B.0_SI00 0_QI00" 

"[ei] F.B SEL/e2,LLSC~B,SI0N_QI00 QION S!0O" 

"CeO.F.B SEL/e2.LLSClB.QION_SlOO 0_QIOO" 

="Q_S,1_C0,ALU OP/SBAR+C" 

"R SEL/ei.ALU OP/RBAR+C" 
"[ei]BAR+C F.l CO" 



;Right shift f, 
;Right shift f. 



□+1_Q 

[]+! Q R*MFILE_[] 

C]+2_B 

Q+[]+C_F 

Q+[]+1_F 

Q+C]_F 

Q+C]_Y 

Q+[]_Q 

Q+[]_rj 

C]+C]H-C_F 
[]+[]+C_B 
[]+[]_F 
[]+[]_Y 

□+C]_Q 

[]+[]_B 
C]+[]+l_F 

Q-C]_F 
Q-[]_Y 

[]-Q_F 
C]-[]-l+C_F 

[]-n-i_F 

□ -□_F 

□-n_Y 

□ -□_Q 
[]-C]_B 

□ -□-1+C_A 

n-n-i_A 

[]-[]_A 

SM []_B 
MUL [] [] 
TCH [] [] 
TCM COR [] □ 
TCDIV [] [] B 
TCOIV COR [] □_B 

Qtn.F 

Qfc[]_Y 

Q&C]_Q 

Q6[]_Q RAMFILE_[] 

Q&[]_r] 

□&n_F 
□&n_Y 
[]&n_Q 
a^D.B 

□ BARiQ_F 
[] BARtQ^Y 
DBAR&Q F 
DBAR&[]_Y 

□ BAR&n_Q 

□ BARi[]_B 



"[ei]+C F,1_C0" 

"[ei]-H~F.F Y" 

"CeO+llF.FlQ" 

"Cei]+1_F,Y B F Q,RAnFILE_Y.B SEL/e2" 

"[ei]+i_F.F_[e?]" 
"[ei]+i_F.F_Q_[e2]" 

"S SEL[§1],1 CC.ALU SP FUN/S+1+C B.ALU Y/YES" 



R SEL/ei,Q_S,ALU OP/R+S+C" 

Q+[ei]+C_F,l_CO" 

Q+[ei]+C_F,0_CO" 

Q+[ei]_F.F_Y" 

Q+[ei]_F,F_Q" 

Q+[§l]_F,F_[e2]" 

R SEL/ei.S SEL[e2],ALU OP/R+S+C 

[ei]+[e2]+C_F,F_B" 

cei]+[e2]+c_F,o_co" 
[ei]+ce2]_F,F_Y" 

[ei]+[§2]_F,F_Q" 

[ei]+[e2]_F.F_B" 

[ei]+[§2]+C_F,l CO" 



R SEL/ei,Q_S,1_C0,ALlJ OP/S-R-1+C" 

Q-[ei]_F.F_Y" 

R SEL/§1,Q_S,1 CO, ALU 0P/R-S-1+C" 

R SEL/ei.S SELle2],ALU OP/R-S-1+C" 

[ei]-[e2]-1+C_F,0_C0" 

[ei]-[e2]-i+c_F.i_co" 
[ei]-[e2]_F.F_Y" 
[ei]-ce2]_F.F_Q" 
cei]-[e2]_F.F_8" 

R SEL/e2,S SEL[ei],ALU 0P/S-R-1+C,F_9" 

[ei]-[e2]-i+c A.o CO" 
[ei]-[e2]-i+c~A,rco" 



s c< 



"S SEL[ei],CX_CO,ALU SP FUN/S«,ALU_Y/YES" ;Sign/magni tude, two' 

'"K SEL/ei.S SEL[e2],0_C0,ALU SP FUN/MUL,0_SI ON SIOO Ql ON,ALU_Y/YES" 

"R SEL/ei.S SEL[e2],0_C0,ALU SP FUN/TCM,0_SION SIOO~QI ON.ALU Y/YES" 

"R SEL/ei,S SEL[§2],CX CO. ALU SP FUN/TCM COR.O_SION~S 100 QION. ALU_Y/YES' 

"R SEL/ei.S SEL[e2].CX_C0.ALU SP FUN/TCDI V,S ION_QIOO QI0N_SI 00, ALU_Y/YES' 

"R SEL/ei.S SEL[e2].CX_C0.ALU SP FUN/TCDIV C0R,1_SI00 1_QI00.ALU_Y/YES' 

"R SEL/ei,(i_S.ALU OP/R.AND-S" 

"Q&CeO F,F_Y" 

"Q&[ei]lF,F_Q" 

"Q&tel] F.F Q Y [e2],RAMFILE Y" 

"Qtcei]_F,F_ce2]" 

"R SEL/ei.S SEL[e2],ALU OP/R.AND.S" 

"[ei]&ce2]_F,F_Y" 
"[ei]&ce2]_F,F_Q" 
"[ei]&ce23_F,F_B" 

"R SEL/ei,Q_S.ALU OP/RBAR.AND.S" 

"[ei]BAR&Q_F.F_Y" 

"R SEL/ei.S SEL[e2].ALU OP/RBAR.AND.S" 

"[ei]BAR&[e2] F.F Y" 

"[ei]BAR&[e2]_F,F Q" 

"[ei]BAR&[e2] F.F B" 



Q.OR.D_F 
Q.OR.C] Y 

Q.or.dIq 

^.OR.[]_C] 
p].OR.[]_F 

[].OR.[]_Y 

[].OR.[]_Q 

□ .OR.[]_B 

Q.XOR.C] F 

C].XOR.[]_F 

[].XOR.[]_Y 

Q.XNOR.n F 
[].XNOR.Cj_F 

READ [] 
WRITE [] 

CHECK INTERRUPTS 



R SEL/ei,Q_S,ALU OP/R.OR.S" 

Q.OR.Cei] F,F_Y" 

Q.OR.[ei]_F.F Q" 

Q.0R.[ei]_F,F_[e2]" 

R SEL/eUS SEL[e2].ALU OP/R.OR.S" 

Cei].0R.[e2] F,F_Y" 

[ei].0R.[e2]_F,F_Q" 

Cei].0R.[e2]_F.F_B" 

R SEL/ei,Q_S,ALU OP/R.XOR.S" 

R SEL/ei.S SEL[e2],ALU OP/R.XOR.S" 

[ei].X0R.[e2]_F,F_Y" 



"R SEL/ei,Q_S,ALU OP/R.XNOR.S" 

"R SEL/ei.S SEL[e2],ALU OP/R.XNOR.S" 

"Cei]_Q_[E],SPEC SEL/PAGE TABLE ENTRY, CALL [i.EMORY READ]" 
"te1]_Q_[E],SPEC SEL/PAGE TABLE ENTRY, CALL [MEM WRITE 1]" 



"IF [PI REQ] CALL [CHK INT]" 



SECTION SELECT "SPEC SEL/PAGE TABLE ENTRY" 

; Things to fix ! ! ! 
LIGHTS [] "j[ei]_[PXCT]" 



.TOC "Dispatch Table Macros" 



.DCODE 
J/»<0:11>,. ADDRESS,. DEFAULT-<HCE> ;lst Dispatch « OPERAND FETCH Dispatch 

K/-<12:23>,.DEFAULT-<MCE> ;2nd Dispatch - INST EXCT Dispatch 

L/-<2l.:35>..DEFAULT-<«CE> ;3rd Dispatch - OPERAND STORE Dispatch 

M/-<36:1»7>, .DEFAULT-<MCE> ;i»th Dispatch - final inst dispatch 

N/"-<48:59>. •DEFAULT-<MCE> ;5th Dispatch « free 

0/-<60:71>..DEFAULT-<MCE> ;6th Dispatch - free 

P/-<72:83>, .DEFAULT»<MCE> ;7th Dispatch « 1st half of ID dispatch 

Q/-<8't:95>, .DEFAULT-<MCE> ;8th Dispatch = 2nd half of 10 dispatch 



n [] [] [] [] [] 

[] 

[]#[] 

□ ##[] 
C] [] 

□ []#[] 
[] []##[] 
[] [] [] 

G [] []#[] 
[] [] □##[] 
[] C3 [] [] 
[] [] [] []#[] 

□ [] [] []##[] 

.UCODE 



□ □ 



j/ei.K/<j/e2>,L/<j/e3>,M/<j/eA>,N/<j/e5>.o/<j/e6>,p/<j/e7>.Q/<j/e8>" 

[ei] [MCE] [MCE] [MCE] [MCE] [MCE] [MUUO] [MCE]" 

[ei] [MCE] [MCE] [MCE] [MCE] [MCE] [§2] [MCE]" 

[61] [MCE] [MCE] [MCE] [MCE] [MCE] [MUUO] [62]" 

[ei] [82] [MCE] [MCE] [MCE] [MCE] [MUUO] [MCE]" 

[61] [62] [MCE] [MCE] [MCE] [MCE] [83] [MCE]" 

[81] [82] [MCE] [MCE] [MCE] [MCE] [MUUO] [83]" 

[81] [82] [83J [MCE] [MCE] [MCE] [MUUO] [MCE]" 

[81] [82] [83] [MCE] [MCE] [MCE] [8^] [MCE]" 

'[81] [82] [83] [MCE] [MCE] [MCE] [MUUO] [8^]" 

[81] [82] [83] [8'»] [MCE] [MCE] [MUUO] [MCE]" 

[81] [82] [83] [8'»] [MCE] [MCE] [@5] [MCE]" 

'[81] [82] [83] [8'«] [MCE] [MCE] [MUUO] [85]" 



.BIN 



^First clear the paging ram 
BEGIN: J [6000] [W1],P0P 

;J[25i5]_Y2*.~Y35.[wi]+[wi] f, 
;J[5n5]_Y2if-Y35,Cwi]+Cwi]_F. 
JC7n5]_Y2i»-Y35.[Wl]+[Wl]_F, 
F_LSZ Y_[W1],P0P 

J[LNOMDW]_RAMFILE ADR, POP 
SWAP [W1]_CW1], 
CALL [W1 RAMFILE] 
;GOTO [TEST] 



;Wi 1 1 become 30000 next 

300 baud 

2it00 baud 

9600 baud 
Ext clocks, 300 baud, 
1 stop bit, 8bits, async 1x 

CTY mode word 



;Try to verify machine works 

; This also initializes 2901, regs 

; and ramfile constants 



:Here to check system seems to be ok 

; This clobbsrs eve ything in Ramfile except CTY status and mode 

; After checking will initialize Ramfile and 2903 regs 

TEST: 

;lnitiali2e some registers 

ONES_[K -1],P0P 

J[1]_[W1],P0P 

SWAP [W1]_[BIT17],P0P 

.IF/FTDIAG 

;First qki check on 2903, 290^, and 2910 

LIGHTS [1] ;lst ALU test 

JN[7776]_Cwi] :-2 to wi 

[W1]_Y. 

IF NOT CT [IN] THEN [ALU BROKE] 
[W1] + I_[W1], 

IF CT [IZ] THEN [ALU BROKE] 
[W1]+I_[W1], 

IF NOT CT [IZ] THEN [ALU BROKE] 
Right shift a bit through Q register 
Left rotate a bit through Wl 
Count -36 to zero 
JS[0]_[WI] ;i»00000,,0 Wl 

[Wl]_Q.J[i»3]_CTR ;'t'»(8)-36(To) 

JN[7733]_CW2] ;Number to count up to zero 

TALU21: Q_F,F_Y LSRQ_Q, ;Shift Q right 

IF CT [IZ] THEN [ALU BROKE] 
ROL [W1]_[W1], ;Put 1 in Wl 

IF CT [IZ] THEN [ALU BROKE] 
[W2]+1_[W2], ;Check didn't go to zero yet 

IF CT [IZ] THEN [ALU BROKE] 
LOOP [TALU21] :Back for rest of count 

Q_F,F_Y LSRQ_Q. 

IF NOT CT [IZ] THEN [ALU BROKE] 
ROL [W1]_[W1], ;Rotate one more position 

IF NOT CT [IN] THEN [ALU BROKE] 
[K -1]+[W1]_Y. 

IF NOT CT [IZ] THEN [ALU BROKE] 
[W2]+1_[W2], ;Final count out 

IF NOT CT [IZ] THEN [ALU BROKE] 



;Verify UX and MX in 290i« 

For this test bits 28-31 is UX, 32-35 is MX 
LIGHTS [2] 
J[377]_CW2] :Start with all flags 

.IF/FTBB 

;Set UX from W2 bits 28-31, set MX from W2 bits 32-35 

TUMX12: ROR [W2]_[W1] , J [2]_CTR 

TUMX13: ROR [W1]_[W1] ,Y_MX, 

LOOP [TUMXI3] 
ROR [W1]_[W1], 

J[2]_CTR,MX_UX 
TUMXll»: ROR [Wl3_[Wl] , Y_MX, 

LOOP [TUMXli*] 
MX UX UX MX 



;Load MX from 32-35 



;Load UX from 32-35 
;Load MX from 28-3I 



; Verify UX 6 MX by reading onto Y bus 

UX_[W1],J[3]_CTR 
TUMXI5: ROL [Wlj_[Wl],LOOP [TUMXI5] 
JC17]_[W3] 

[W3]6[W1]_F,F_Q Y_[W1], 
MX Y,J[3]_CTR 
TUMXI6: R0L~[W1]_[W1] ROL Q_Q, 
LOOP [TUMX16] 
[W3]&[W1]_B 
Q.0R.[W1]_CW1] 
[W1].X0R.[W2]_Y, 
IF NOT CT [IZ] THEN [ALU BROKE] 
.END IF/FTBB 



; Exchange MX and Ux 

;Get micro flags 
;Put UX in Wl bits 31-35 
;Mask for extra Y bus bits 
;Masi( off extra bits 

;Shift left k places 

;Mask off extra bits 



•IFNOT/FTBB 

;Set UX from W2 bits 28-31, set MX from W2 bits 32-35 
TUMX12: LRS [W2]_[W1] , J [2]_CTR 
TUMXI3: LRS [W1]_[W1],Y_MX, 
LOOP [TUMXlj] 
[W2]_Y,Y_MX MX_UX 



;Load MX from 28-3 1 

;Load UX from MX and MX from Y 



; Verify UX & MX by reading onto Y bus 

UX [Wl] 

J[T7]_[W3] 

CW33&CW1] B,J[1]_CTR 
TUMX16: i»*[Wl] B.LOOP [TUMXI6] 

MX_[Wl],tW3]6[Wl]_F.i_Q Y_CW1] 

Q.0R.[W1] [Wl] 

[W1].X0R.IW2]_Y, 
IF NOT CT [12] THEN [ALU BROKE] 
.ENDIF/FTBB 



;Get micro flags 

;Mask for extra Y bus bits 

;Mask off extra bits 

;Put UX in Wl bits 28-3I 

:Mask off extra bits 

; Combine UX and MX 



: Verify UX 6 MX with TEST SELECT 

ZER0_[W1],IF CT [UOVR] CALL [Wl+1 Wl] 

[W1]+[W1]_B,IF CT [UC] CALL [W1+1~W1] 

[W1]+[W1] B,IF CT [UN] CALL [W1+1_W1] 

[W1]+[W1]~B.IF CT [UZ] CALL [Wl+1 Wl] 

[W',] + [Wi]_B.IF CT [MOVR] CALL [W1+1_W1] 

[W1]+[W1]_B,IF CT [MC] CALL [Wl+1 Wl] 

[W1] + [W1]~B.I^■ CT [MN] CALL [Wl + Twi] 

[W1]+[W1]~B,IF CT [MZ] CALL [W1+1~W1] 
[W1].X0R.IW2] Y, 



IF NOT CT [IZ] THEN [ALU BROKE] 

[K -1]+[W2]_B. 
IF NOT CT [IN] THEN [TUMX12] 



:Verify LOCAL, USER, PAGED, RUN, T0PS20, PXCT, and TRAP latches 
LIGHTS [3] 

JC1773_[W2] ;1st check all latches 

'TLTCH2 : 
;Here to set LOCAL, USER, PAGED, RUN, T0PS20, PXCT, 6 TRAP latches from W2 
J[lOO]_Y2i*-Y35. CW2]_F,Y_[W3] F_Q 
QS[W3]_F,F_Y QLS_Q, CLEAR LOCAL, 

IF NOT CT [IZ] CALL [SET LOCAL LATCHj 
Q&CW33_F,F Y QLS_Q. CLEAR USER, 

IF NOT CT [IZ] CALL [SET USER LATCH] 
Q6[W3]_F,F Y QLS_Q, CLEAR PAGED, 

IF NOT CT [IZ] CALL [SET PAGED LATCH] 
Q&[W3]_F,F_Y QLS_Q, CLEAR RUN, 

IF NOT CT [IZ] CALL [SET RUN LATCH] 
Q6[W3]_F,F_Y QLS_Q, CLEAR T0PS20, 

IF NOT CT [IZ] CALL [SET T0PS20 LATCH] 
Q6[W3]_F,F_Y QLS_Q, CLEAR PXCT, 

IF NOT CT [IZ] CALL [SET PXCT LATCH] 
Q&[W3]_F,F_Y QLS_Q, CLEAR TRAP, 

IF NOT CT [IZ] CALL [SET TRAP LATCH] 

;Here to read LOCAL, USER, PAGED, RUN, T0PS20, PXCT, 6 TRAP latches into Wl 
ZER0_[W1],IF [LOCAL] CALL [W1+l_Wl] 
2*[W1]_[W1],IF [USER] CALL J^}+] Wl] 
2*[W1]_[W1],IF [PAGED] CALL [W1+T_W1] 
2*[W1]_[W1],IF [RUN] CALL [W1+1_W1] 
2*[W1]_[W1],IF [T0PS20] CALL [W1+1_W1] 
2*[W1]_[W1],IF [PXCT] CALL [W1+1_W1] 
2*[W1]_[W1],IF [TRAP] CALL [W1+1_W1] 

CALL [TVR XY] :Be sure Wl and W2 are same 

[K -1]+[W2]_B, ;Next combination of latches 

IF NOT CT [IN] THEN [TLTCH2] 



;Verify the PI status register may be read & written 
LIGHTS [1»] 
J [73 CW2],Y 291'* STATUS 

J[7]I[W3] 

TPI2: 291i» STATUS Y,Y_[WO 
[W3]&[W1]_b7 
CALL [TVR XY] 
[K -1] + [W2]_B,Y_291'» STATUS. 
IF NOT CT [IN] THEN [TPI2] 



; 1st va!ue for reg 

;nask for value 

;&et value back from reg 

; Be sure we got correct value 



;Verify the PI mask register may be read £ written 
.IF/FTLDIAG 

LIGHTS [5] 
JC377]_[W2], 

INT OP/LOAD MASK REG 
J[377]_[W3] 
TPI3: Y [W1],INT OP/REAO MASK REG 
[W3]6[W1]_B, 
CALL [TVR XY] 
[K -1] + [W2]_B, 
INT OP/LOAD MASK REG. 
IF NOT CT [IN] THEN [TPI3] 
INT OP/LOAO STATUS REG, 
IF NOT CT [IN] THEN [TPI2] 
.ENDIF/FTLDIAG 



;1st value for mask 

;Mask for mask register 

;Get value back from mask 

;nask off extra bits 

; Be sure we got correct value 



;Next value for register 



TPIi»: 



TPI7: 



:Verify the PI mask register blocks interrupts 
LIGHTS [63 
J[377]_[W2] 
J[7777]_[W6]. 

INT OP/MASTER CLEAR 
[W2] Y.Y 291^ MASK 
J[377]_[wi] 

LRS [W1]_CW33,ALU PROC REG 
J[73_[Wi.] 

[w'»3_Q. 

IF [MC PI REQ] THEN [TPI9] 
[Wi»3 + 1 Y.ALU CTR 
IF [TIMER FLAG3 THEN [TPI7I], 

GRANT INTERRUPT 
291'* STATUS_Y,Y_[Wl»3 
Q&[Wi»]_Y.ALU_CTR 
BITO [Wl.]. 

GOTO [TPi73] 
ROL [Wi.]_[Wli] 
ZERO_Y,Y_291'» STATUS. 

LOOP [TPI723 

[wj»3bar*[wi]_b 

[Wii3BARl.[W3]_B,ALU_PROC REG 
[K -1] + [W6]_B, 

IF NOT CT [IN] THEN [TPI7] 
CALL [TVR XY] 
[K -1]+[W2] B. 

IF NOT CT [IN] THEN [TPU] 



TPI71 

TPI72 
TPI73 



TPI9: 



;1st value for mask 
;Stal 1 counter 

;lnhibit some interrupts 
:Chn1s where ints didn't happen 
;Start ints on all chnis 
;Mask for 29U status 



;Load ctr with 10 

; Grant interrupt 

;Get interrupting levc1+l 
;Bit for interrupt 

;A1 low next interrupt 

;Flag we got int 

;Stop trying to make that kind 

;See if right ints were inhibited 



;S8ve CTY registers 

J[LNOnDW]_RAMFILE ADR 
RAMFILE_[PC],NRFRD/1 



;Save mode register here 



;Rainfi1e test 1, float a bit through 
TVR 00: LIGHTS [11] 

CALL [TVR XO] 
TVR 1: J[1]_[W2] 
TVR 2: [W2] RAMFILE.IX MX, 
CALL [TVR XX] 
2*[W2]„[W2]. 

IF NOT CT [MZ] THEN [TVR 2] 
Q_Y,ALU_RAMFILE 

Q+[K -lT_F,F_Q_Y,Y_RA«FILE ADR, 
IF NOT CT [IN] THEN [TVR 1] 



each word in Ramfile 
;F i rst ramf i le test 
; Point to highest ramfile adr 
;Bit to float 

;Write next pattern in ramfile 
; Check we could write bit 
;Write next word in ramfile 



;Write words address in word 
;Next ramfile location 



;Ramfile test 2, verify each word has its address written in it 



LIGHTS [12] 
CALL [TVR XO] 
TVR 3: Q_[W2],Y RAM^^ILE ADR, 
CALL [TVR XX] 
Q+[K -1]_F,F_Q_Y,Y_RA«FILE ADR, 
IF NOT CT [IN] THEN [TVR 3] 



; Second ramfile test 
; Initialize ramfile adr 
; Address should equal data 

:Next ramfile word 



;Ramfile test 3t address ramfile with 
LIGHTS [13] 
J[1'«77]_[W2],SET USER 
J[0000]_[W3] 

0NES_F,F_Y, 

SPEC SEL/PAGE TABLE ENTRY. 

CALL [RDPG LATCHES] 
J[1000]_[W2].SET EXEC 
J[OOl6]_[W3] 

ZERO Y,ALU PROC REG. 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [RDPG LATCHES] 

J [0701] [Wl] 

SWAP [wT] [Wl] 

J[601]_[W2] 

[wi]_y7load I r. spec SEL/XR, 

CALL [TVR XX] 
J [600] [W2] 

zero_y7spec SEL/VMA, 

CALL [TVR XX] 
SEL AC+[2] 
CALL [TVR XX] 
J [6 16] [W2] 
SEL AC+[0] 
CALL [TVR XX] 



special selects 

Third ramf i le test 
Expected page table contents 
Illegal section, sect.NE.O, 
not AC ref, no context match 



; Correct page table contents 
; Legal section, sect.EQ.O 
; AC ref. no context match 
;Register block 



;Wil1 be ACI6. XR-1 



: Load I R 

;What should be in ACO block 
; Address ACO 

:Select AC2 block 



^1 



Zero entire Ramfile 

call [tvr xo] 
rf 2: zero_y,alu_ra«file 

q+[k~-i]_fTf_q_y.y_ra«file adr, 

IF NOT CT [Tn] THEN [IRF 2] 



;Set first adr for ramfile 



: Check PCI 's are OK 

J[LN0SW]_[W6] 

; Verify we can read/write CR register 
TPCIO: LIGHTS [20] 

[W6]_[PXCT LH] 

J[357]_[wi.] 

JC377]_CW3] 
TPCIl: J[A1!A0]_[W1] 

[W3] [W2],CALL [WR PCI] 

CALL [RD PCI CR] 

[Wit]6[W2]_B 

[Wi»]6[Wl]_B, 
CALL [TVR XY] 

[K -1] + [W3]_B, 
IF NOT CT [IN] THEN [TPCIl] 

; Verify we can read/write MR 1/2 
J[21]_[PXCT RH] 

[W6]+1_Y.Y_RAMFILE ADR 
.IF/FTLDIAG 

J[6000]_[W1] 

J[7777]_Y2i»-Y35,[wi]+[wi]_F, 
F_LSZ Y_[W1] 

SWAP [Wl] [W2] 
.ENDIF/FTLDIAG 
.IFNOT/FTLDIAG 

J[itOOO] [Wl] 

i»*[Wl]_B 

SWAP [W1]_[W2] 
.ENDIF/FTLDIAG 
TPCI2: [W2]_RAHFILE, 

CALL [SET PCI MODE] 

J[A1]_[W1] 

CALL [RD PCI] 

J[377]_[W3] 

[W3]&[W1]_Q 

PCI ALU,Y_[W1],J[3]_CTR 

J[77]_[W2] 

[W2]6[W1] B 
TPCU: i**[Wl] B.LOOP [TPCU] 

Q+[W1]I[W1] 

[W6]-H_Y,Y RAMFILE ADR, 
CALL [SWAP Wl Wi:i 

RAMFILE_[W2],CALL [TVR XY] 
.IF/FTLDIAG 

[W2]-[BIT17]_A. 
IF NOT CT [IN] THEN [TPCI2] 
.ENDiF/FTLOlAG 
.IFNOT/FTLDIAG 

ROR [W2]_[W2 LH], 
IF NOT CT [IZ] THEN [TPCI2] 
.ENDIF/FTLDIAG 



;F irst 1 i ne block adr 



;Mask for compare 

; Ini tial value 

;To address CR register 

;Wr i te CR regi ster 

'Get CR now 

; Leave only good data 

; Leave only read data 

; Compare good with bad 

;Next value for CR 



; Address mode word in ramfile 

;Wi 1 1 become 30000 
; Leave 37777 in Wl 

;Put 37777.. In W2 



:Wi 1 1 become 020000 
: Makes 020000 
;Make 020000,, 



;For PCI adr to read MR 1/2 

:Get MRl 

;Mask for extra bits 

; Leave only MRl in Q 

;Read MR2 

;Mask for MR25-MR20 



: Combine Wl and W2 
;Address ramfile mode word 
;Position like ramfile 
;net correct answer 

;0n to next combination 



;0n to next bi t 



;Now ready for rext line 
J[10]_[W1] 
[fllT17]+[w6]_B. 



;Bit to test 

;Next line number in LH 



CALL [SWAP W1 W1] 
[Wl]i[W6]_Y, 
IF CT [IZ] THEN [TPCIO] 



Restore CTY Ramfile registers 

j[lnondw] ramfile adr 
Cpc]_ramfTle, 
call [cmd6cmr flush] 



;Position to test line number 
;See if we are done 



; Flush CMD and CMR buffers 



F,F_Q Y_[W1] 
F,F Q Y_[W1] 
f.fIq Y_[W1] 
P.f_Q Y_[W1] 
F.F_Q Y_[W1] 
F,F_Q Y_[W1] 
F,F_Q Y_CW1] 
F,F_Q Y_[W1] 



; Checksum DISPATCH RAH 
LIGHTS [i»0] 
ZERO F,F Q_[W1] 
J[0777]_IW2] 
TDP1: SWAP [W2]_[W3],J[3]_CTR 
TDP2: '♦*CW3] B.LOOP CTDP2] 
2*[W3]I[W3],L0AD IR 
DISP [10]_Y,Q+[W1]J 
DISP [11]_Y,Q+[W1] 
DISP [12] Y,Q+CW1]~ 
DISP [13]~Y,Q+CW1] 
DISP [U]Iy,Q+[W1]~ 
DISP [15]_Y.Q+CW1]_ 
DISP [16]_Y,Q+[W1]J 
DISP [17]_Y,(J+[W1] I 
[K -1] + [W2]_B, 

IF NOT CT [IN] THEN [TDP1] 
Q+[W1]_[W1] 

J[7777]_[W3] 
J[0105]_[W2] 
[W3]6[W1]_B, 
CALL [TVR XY] 

; Check memory is OK 

;GOTO [SYS I NIT] 
.ENDIF/FTOIAG 
.IFNOT/FTDIAG 

J[LNOMDW]_RAMFILE ADR 

J[2000]_[W1] 

RAMF I LE_[W6] 

ZERO [W2],Y RAMFILE ADR 
IR2: ZERO~Y,ALU RAMFILE. 
CALL [W2+T_RFA] 

[K -1]+[W1]_B. 
IF NOT CT [IZ] THEN [IR2] 

J[LNOMDW]_RAMFILE ADR 

[W6]_Y,ALU RAMFILE, 
CALL [CMD6CMR FLUSH] 
.FNDIF/FTDiAG 



; Check DISPATCH ROM 
; Initialize checksum 
:First IR 



;Next value for IR 

;Make final checksum 
;Mask for checksum 
; Known checksum 
:Mask result to 12 bits 
; Compare two values 



;lnitia1ize everything 

; Address Cty mode word 
;Save it 



; Address Cty mode word 

: Flush CMD and CMR buffers 



;Here after TEST has run, to initialize machine for running 
.SYS INIT: 



; Setup 2903 registers 
J[0077]_[K 77] 
J[777]_[K 777]. 

CLEAR RUN 
JC27.]_[TmE] 
ZER0_CK -1.0 RH] 
J[3]_[C0!C1] 

ONES_[K -1.0 LH],PUSH J [2] CTR 
ROR CC0!C1] [C0!C1],RFCT 
J[1]_[W1] 
SWAP [W1] CBITI7] 
JC7777]_Y2i«-Y35,[BiTl7]_F. 

F_ROR Y_[W1] 
SWAP [W1]_[K '♦07777. 0] 
J[00i»0]_[Wl] 
SWAP [W1]_[B1T12] 

; Setup RAMFILE b/te masks 
J [BYTE MASK]_[W1] 
[W1] + [K -1]_Q, 
JC77]_CTR 
ZER0_[W1] 
IRF 10: CALL [RF WRITE] 

[W1]_F,LLS F_B,1_SI00 1_QI0O, 
B SEL/W1,L00P [IRF 10] 

; Setup RANFILE bit table 

BIT0_[W1] 
IRF 12: CALL [RF WRITE] 

LRS [W1]_[W1], 
IF NOT CT [IZ] THEN [IRF 12] 

: Setup other Ramfite locations 

J [PUSH J FLAGS] RAMFILE ADR 
J[li3i*0] [W1] 
SWAP [wT] [W1] 
1»*[W1] B,ALU_RAMFILE, 
J[5]_CTR 

; Setup M8628 status register 

J[BIT20]_RAMFILE ADR 

J[7]_[W5] 

RAMFILE [Wi«],J[1]_CTR 

J[65'*0]I[wi] 
IM 12: 1»*[W1]_B,L00P [IM 12] 
IM 20: [Wi»]+[W5:_F.F_(i_Y, 
START 10 WRITE 

[W1] [W1],ALU_I0 

[K "T]+[W5]_B, 
IF NOT CT [IN] THEN [IM 20] 

; Setup another 2903 reg 

J[BIT1»] RAMFILE ADR 
RAMFILEl[BITi»],NRFRD/1 
J[30B MASK] RAMFILE ADR 



; I ni t ial i ze regi ster 
; I ni tial ize register 

; I ni t i a1 ize reg i ster 
;Clear RH of register 

;Set LH of register 
;Load 300000,,0 

; Makes 1,,0 
;Makes 0,. 1*077777 

: I ni tial ize register 



;First adr in byte mask are? 
;First adr in Ramfile to set 
; Number of masks to write 
;First word is all zeros 

;Shift left shifting in ones 



;First bit 



;Want 02l600,,0 



:Want 100000 

;Highest possible memory 

;Clear error flags 

;Address memory status reg 

;Write status register 

;Next memory 

; Loop back for rest of memories 



RAHFILE_[K 7777.-1] .NRFRD/1 . 
CALL [SYS RESET] ; Reset a bun;;h of things 

CONSOLE PROMPT: 

CALL [PUT CMR PROMPT] ;Type prompt 

;GOTOP [CONSOLE] 



.TOC 



"CONSOLE PROGRAM' 



CONSOLE: 

IF [RUN] THENP [CSL2] 

CHECK INTERRUPTS 

J [I NT RC0VR]_RAMF1LE ADR 

RAMFILE_[W1],NRFRD/1 

[W1]_[W1]. 
IF NOT CT [IZ] THEN Y 
CSL2: 
CMD PRSEX: 

JECMDtkR] RAMFILE ADR 
.IF/FTCRAM 

RAMFILE_[W1],NRFRD/1 

[W1]_Y. 
IF CT [IZ] THEN [CSL3] 

J[CMRTKR]_RAMFILE ADR 

RAMFILE_[W1],NRFRD/1 

[W1]_Y, 
IF CT [IZ] THEN [CMD PRSE] 
.ENDIF/FTCRAM 
.IFNOT/FTCRAM 

RA«FILE_[W1],NRFRD/1, 
IF CT [IZ] THEN [CSL3] 

J[CMRTKR]_RAMFILE ADR 

RAMFILE_[W2],NRFRD/1, 
IF CT [IZ] THEN [CMD PRSE] 
.ENDIF/FTCRAM 
5L3: IF [RUN] THENP [I FETCH] 
'IF/SH6TL 

CALL [SH0W6TELL] 
.ENDIF/SH6TL 

GOTOP [CONSOLE] 
.IF/SH6TL 
SHOW&TELL: 

J[RF PROC REG]_RAMFILE ADR 

RAMFILE_[W1],NRFRD/1 

291'» MASK Y,Y [Wl] 

29U status_yTy_[wi] 

J[LN0SW]_[W6] 
CALL [RD PCI CR] 
[W1]_[W1]. 
CALL [RD PCI SR] 
[W1]_[W1] 
J[A1]_[W1] 
CALL [RD PCI] 
[W1]_[W1] 
PCI_ALU.Y_[W1], 
RETURK 
.ENDIF/SH6TL 



; Address recovery routine 



;Get break char flag 



; Address response putter 
;Get response taker 



;Get break char flag 

; Address response putter 
;Get response taker 



: Address ramf"'' copy of 
: PROC REG 



;Disp1ay SR 
:For PCI adr 
:Get MR1 
; Display MR1 
:Read MR2 



to read MR 1/2 



:Here to decode next console convnand 
CMD PRSEr 

ZER0_[W5]. 

CALL [GET CMD CHX] 
J[15]_[W2] 
CW1]-[W2]_Y. 

IF CT [IZ] THEN [CMD DONE] 
J[5'.]_[W2] 
[W-|]-[W2]_Y, 

IF CT [IZ] THEN [CMD PRSE8] 
GOTO [CMDP5] 

CMDP2: CALL [GET CMD CHR] 
J[i»0]_[W2] 
[W2]-[W1]_Y, 

IF CT [IZ] THEN [CMDDSP] 
J[15]_[W2] 
[W2]-[W1]_Y, 

IF CT [IZ] THEN [CMDDSP] 
J[5^]_[W2] 
[W2]-[W1]_Y, 

IF CT [IZ] THEN [CMDDSP] 
2*[W5]_[W5]. 

J[2]_CTR 
CMDP3: '♦*[W5]_B, 

LOOP [CMDP3] 
CMDP5: J[l'fO]_[W2] 
[W1]-[W2]_Y, 

IF CT [IN] THEN [CMDP6] 
J[173]_[W2] 
[W1]-[W2]_Y. 

IF NOT CT [IN] THEN [CMDP6] 
J[i»0]_[W2] 
[W2].X0R.[W1]_F,F_B 
CMDP6: [W1]+[W5]_B, 

GOTO [CMDP2] 



;Bui Id command in W5 

;Get 1st nonblank char from command 

;Ascii <cr>" 

; I f end of 1 i ne done 

;Ascii "." 

;Skip command separator 



;Get next command chat 
;Ascii " " 
; Compare 



;Ascii "<cr>" 
; Compare 

;Ascii "." 



; ll»l« lower case "a' 



;172 * lower case "2" 



;Mask for bit 

; Convert to upper case 



;Conso1 commands include: 



B 




;(102) 


C 




;(103) 


D #1 


#2 


;(ioi») 


E # 




:(105) 


H 

1 




;(110) 
;(iil) 


R 




;(122) 


S # 




;(123) 


T 




;(12M 


'^C 




: (003) 


<cr> 




;(015) 


AU 




: (025) 


A\ 




; (03'») 


» 




;Separ 


rubout 


;(177) 



Bootstrap 
Cent i nue 

Deposit #2 in physical memory location #1 
Examine physical memory location # 
Halts the machine and prints out PC 
I ni t ial ize system 
Repeat 

Start at address # 
Perform self test 
Abort repeat, or current line 
ends command 

deletes current command line 
Toggles consol/user switch for consol tty 
ate commands 
deletes previous typed character 



CMDDSP: CALL [BKUP CMD TKR] 

JCCMDERR MER] [W1],P0P 
CALL [SET PF WE RCOVR] 
J[102]_[W1],POP 
[W1]-[W5]_F.F_Q_Y. 
IF CT [IZ] THEN [B CMD] 
.IF/FTADRB 

Q+[K -1] F.F_Y, 
IF CT [IZ] THEN [A CMD] 
END IF/FTADRB 

IF CT [IZ] THEN [C CMD] 
Q+1 F,F_(1_Y. 

IF CT [IZ] THEN [D CMD] 
Q+1 F,F_Q_Y, 

IF CT [IZ] THEN [E CMD] 
J[110]_[W1] 
[W1]-[W5]_F.F_Q_Y, 

IF CT [IZ] THEN [H CMD] 

Q+i_p.f_Q_Cwi]. 

IF CT [IZ] THEN [I CMD] 
.IF/FTFCSL 

[W1]+2_B. 
IF CT [IZ] THEN [JK CMD] 
•ENDIF/FTFCSL 

J[122]_[W1] 
[W1]-[W5]_F.F_Q_Y. 

IF CT [IZ] THEN [REPEAT] 
0^1 F,F_(i_Y. 
IF CT [IZ] THEN [S CMD] 

<HUF.f_Q_Y. 

IF CT [IZ] THEN [T CMD] 
J[1»000]_[W1] 
J[i«710] Y24-Y35. 

[W1] + [W1]_F.F_LSZ Y [Wl] 
[W1]-[W5]_F.F_Q_Y, 

IF CT [IZ] THEN [SH CMD] 

Q+1 F.F Q_Y. 
IF CT [IZ] THEN [SI CMD] 
.IF/FTFCSL 



; Backup over command terminator 
;Where to go if memory fails 
;ln case error in command 
;Ascii "B" 



;Asci i "A" « 101 



:Ascii "C" 

;Asci i "D" 

;Ascii "E" 

;Ascii "H" 



103 
104 
105 



;Ascii "I" - 111 

:Ascii "K" 113 

;Ascii "R" 

;Ascii "S" - 123 

;Ascii "T" - 12U 

:Ascii "SH" - 21*710 

;Ascii "SI" - 21.711 



[W1]J[1111]_[W1] 
[W1]-[W5]_Y, 

IF CT [IZ] THEN [Dl CMD] 
[W1]J[1122]_[W1] 
[W1]-[W5]_Y, 

IF CT [IZ] THEN [DR CMD] 
[W1]J[1126]_[W1] 
[W1]-[W5]_Y, 

IF CT [IZ] THEN [DV CMD] 
[W1]J[1311]_[W1] 
CW1]-[W5]_Y. 

IF CT [IZ] THEN [El CMD] 
[W1]J[1326]_[W1] 
[W1]-[W5]_Y, 

IF CT [IZ] THEN [EV CMD] 
[W1]J[1322]_[W1] 
[W1]-[W5]_Y, 
IF CT [IZ] THEN [ER CMD] 
.IF/FTSM 

[Wl]J[i«7l5]_[Wl] 
[W1]-[W5]_Y, 
IF CT [IZ] THEN [SM CMD] 
.ENDIF/FTSM 
.IF/FTZM 

[W1]J[6515]_[W1] 
[W1]-[W5]_Y, 
IF CT [IZ] THEN [ZM CMD] 
.END IF/FTZM 
•ENDIF/FTFCSL 

;Here If user typed an invalid command 
CMDERR URC: 

CALL [CMDBUF FLUSH] 
J[ERR.URC]_[W1] 
GOTOP [CMDERR] 



;Asci i "CI" - 21111 



;Asci i "DR" = 21122 



;Asci i "DV" = 21126 



;Asci i "El" ■= 2131 1 



;Ascii "EV" - 21326 



;Asci i "ER" = 21322 



;Asci i "SM" = 2i»715 



;Asci i "ZM" - 26515 



;Done with CMD buffer 
; Unrecognized command 



CMDERR NWR: 

J[ERR.NWR]_[W1] 
GOTOP [CMDERR] 



;Error code (not while running) 



CMDERR NXA: 

J[ERR.NXA]_[W1] 
GOTOP [CMDERR] 



; Error code (nonexistent adr) 



CMDERR E MER: 

CALL [PUT CMR NUM] 
CALL [PUT CMR SPACE] 
[MB]_[W1], 
GOTO [CMDERR MER] 

CMDERR MER: 

CALL [PUT CMR NUM] 
J[FRR.MER] [Wl] 
; GOTOP [CMDERR] 



;Type error status 
;Type data next 



;Type error status 

; Error code (memory error) 



CMDERR: J[103]_[W6] 
[W1]_[W5]. 

CALL [PUT ? W6] 
SWAP [W5]_[W1], 

CALL [P6DNUM] 
GOTOP [CMD DONE 2] 



;Asci i "C" 
;Save error code 



;Type (6 digit) error ninnber 



CHD DONE: 

CALL [CMDBUF FLUSH] ;Done with CMD buffer 

CND DONE 2: 

J[CMDFLG] RAMFILE ADR, POP ;Adcless command rlags 

RAMFILE_CW1],NRFRD/1,P0P ;Get flags 

[Bin]&[Wl]_Y, ;(F.USR) Check user mode 

IF CT [IZ] CALL [PUT CMR PROMPT] 

CMD9: 

;Here when command has been executed 

CMD PRSE8: 

ZER0_[W1],CALL [SET INT RCOVR] ;Clear interrupt recovery 
ZER0_[W1], ;Clear page fail 

CALL [SET PF ME RCOVR] ; and mem err recovery 
GOTOP [CONSOLE] 



;Here to get a char from a command line, skiping leading blanks 
; Returns with character in Wl 
GET CMD CHX: 

CALL [GET CHD CHR] 

J[i*0]_CW2] 

[W1]-[W2]_Y, 
IF CT [IZ] THEN [GET CMD CHX] 

RETURN 



;Here to get a number from a command line 

; Returns clears UZ if number is found, number in Wl 

GET CMD NUM: 

ZER0_[W5],1_UZ, 
CALL [GET CMD CHX] 
GCN 2: J[67]_[W2] 

[W2]-[W1]_Y, 

IF CT [IN] THEN [GCN i»] 
J[60]_[W2] 
[W1]-[W2]_A. 

IF CT [IN] THEN [GCN 4] 
i»*[W5]_B,0_UZ 
2*[W5]_[W5] 
[W1] + [W5]_B, 

CALL [GET CMD CHR] 
GOTO [GCN 2] 



; Bui Id number here 

; Get 1st nonblank char from cormnand 



; Clear UZ (we got a num) 



GCN 4: CALL [BKUP CMD TKR] 
[W5]_[W1], 
RETURN 



;Backup command buffer taker 
;Copy result 
; and dismiss 



:Here to type number on CTY 
luT CHR NUM: 

CALL [P6DNUM] 

J[5^]_CW1] 

CALL [PUT CMR CHR] 

J[X1]_RAMFILE ADR 

RAMFILE CW1],NRFRD/1, 
GOTO [P6DNUM] 

;Here to type a six digit octal number 
P6DNUM: J [6] [W6] 

J[X1]' RAMFILE ADR 
P6DNM2: J[2]_CTR 

P6DNM3: ROL Iwi]_Cw IJ , ALU_RAMF I LE, 
LOOP [P6DNM3] 

JC7]_[W2] 

[W2]6[W1] F,F_Q FJ[060]_[W1] 

Q+[wi]_[wT], 

CALL [PUT CMR CHR] 
J[X1]_RAMFILE ADR 
[K -1] + [W6]_B,IX MX 
RAMFILE_[W1], 

IF NOT CT [MZ] THEN [P6DNM2] 
RETURN 



;Type first half 
;Ascii "," 



;Get rest cf number back 
;Type 2nd half 

on CTY 
;Keep digit counter in W6 



;Rotate left thrice 

;Mask for number 
;Mask number to 3 bits 
;Convert octal to ascii 
; and print 
; and address word 
; Count digits typed 
;6et number back again 



;Here to type '"^x" 

»call with J[x]_[w6] 
UT CNTRL W6: 

J[136]_[W1] 
PUTXW6: CALL [PUT CMR CHR] 
[W6]_[W1], 
GOTO [PUT CMR CHR] 



;Ascii '""' 



;Here to type "?x" 
; Call with J[x]_[W6] 
PUT ? W6: 

CALL [PUT CMR CRLF] 

J[03M_[W1] 

CALL [PUT CMR CHR] 

J[77]_[W1] 

GOTO [PUTXW6] 



; Beg in with a flourish 
; Ascii "'*'\" 

;Type it for John Kirchoff 
; Ascii "?" 



;Here to type a "/" followed by 
PUT CMR SLSH: 

J[57]_[W1] 

CALL [PUT CMR CHR] 
PUT CMR SPACE: 

J[Oi»0]_[Wl] 

GOTO [PUT CMR CHR] 



; Ascii "/" 



;Asc i i 



;Here to type "<CR><LF>KT20> " 

PUT CMR PROMPT: 

CALL [PUT CMR CRLF] 
J[CMDTKR]_RAMFILE ADR 

.IF/FTCRAM 

RAMFILE [W1].NRFR0/1 

[wi]_[wT] , 



; Beg in with a flourish 
; Address command taker 

;lf already have command 
;Let latchRs go 



IF NOT CT [IZ] RETURN 
.ENDIF/FTCRAM 
. I FNOT/FTCRAH 

RAMFILE_[W1].NRFRD/1. 
IF NOT CT [12] RETURN 
.ENDIF/FTCRAM 

J[113]_[W1] 

CALL [PUT CMR CHR] 

J[l2i»]_[Wl] 

CALL [PUT CMR CHR] 

J[62]_[W1] 

CALL [PUT CMR CHR] 

J[60]_[W1] 

CALL [PUT CMR CHR] 

JC76]_[W1] 

GOTO [PUT CMR CHR] 



; don't prompt 

;lf already have command 
; don't prompt 

;Ascii "K" 

;Ascii "T" 

;Ascii "2" 

;Ascii "0" 

;Asci i ">" 



;Here to type a <CR><LF> 
PUT CMR CRLF: 

J[15]_[W1] 

CALL [PUT CMR CHR] 

J[12]_[W1] 

;CALL [PUT CMR CHR] 

; RETURN 

;Here to type command responses on CTY 
PUT CMR CHR: 

JCCMDFLG] RAMFILE ADR 

J[F.0]_[W2] 

RAMFILE_Y.[W2]_F,Y_CW2] F_Q 

Q6[W2]_Y,IF NOT CT [IZ] RETURN 

J[CMRPTR]_RAMFILE ADR 

J[CMRBUF END]_[W2] 

RAMF I LE_[W3] 

[W2]-[W3]_Y. 
IF CT [IZ] RETURN 

CALL [CMB NXT] 

[W2]_RAMF I LE 

J[CMRTKR]_RAMFILE ADR 
. I F/FTCRAM 

RAMFILE [W1].NRFR0/1 

[wi]_[wT]. 

IF CT [IZ] CALL [CMR PTR RESET] 
•ENDIF/FTCRAM 
.IFNOT/FTCRAM 

RAMFILE_[W1].NRFRD/1, 
IF CT IlZ] CALL [Cf« PTR RESET] 
.ENDIF/FTCRAM 

ZER0_[W6 LH], 
GOTO [SET PCI TXEN] 



; Address command flags 

;Flag for we are flushing output 

;Get flags 

;lf flushing we are done 

; Address putter for CMRBUF 

;Last location in CMRBUF 

;Get putter 

; I f ful 1 can' t put i n 

;Adjust pointer 

;Write byte into ramfile 

; Address taker 

;Get taker 
;Let latches go 



;Get taker 



;Cty is 1 ine 
;Start transmitter 



; F lush nul 1 s 
:Ascii '"^C" 

;Asci i "'^O" - 
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;Asci i '"^Q" - 21 - Xon 

;Ascii '"^S" - 23 - Xoff 

; Address command taker 

;Get taker 
;Let latches go 

; Ignore type ahead 



:Here to put characters in the command buffer 
i With 7bit char in Q 

Console char: 
(LCwi], 
if ct [iz] thenp [pci int clr] 

JC003]_[W23 
Q-[W2]_Y, 

IF CT [IZ] THEN [CNTRL C U] 
JC017]_[W2] 
CW2]-[W1]_A. 

IF CT [IZ] THEN [CNTRL 0] 
[W2]+2_B. 

IF CT [IZ] THEN [CNTRL Q] 
[W2]+2_B. 

IF CT [IZ] THEN [CNTRL S] 
J[CMDTKR]_RArtFILE ADR 
•IF/FTCRAM 

RAMFILE [W3].NRFRD/1 
[W3]_[W3] . 

IF NOT CT [IZ] THEN [TYPE AHEAD] 
•ENDIF/FTCRAM 
.IFNOT/FTCRAM 

RAMFILE_[W3],NRFRD/1. ;Get taker 

IF NOT CT [IZ] THEN [TYPE AHEAD] ; Ignore type ahead 

.ENDIF/FTCRAtt 
.IF/FTCTLR 

[W2]+[K -1]_Y. 

IF CT [IZ] THEN [CNTRL R] 
'.END IF/FTCTLR 

[W2]+2_B, 

IF CT [IZ] THEN [CNTRL C U] 
J[032]_[W2] 
Q-[W2]_Y. 

IF CT [IZ] THEN [CNTRL Z] 
J[177]_[W2] 
Q-[W2]_Y. 

IF CT [IZ] THEN [CND RUBOUT] 
J[CnDPTR]_RA«FILE ADR 
J[CnDBUF END] [W2] 
RAMFILE [W3] 
[W2]-[W3]_Y. 



;Ascii "^R" 

;A8cii '"^U" 
:A$cii '"^Z" 



22 



•25 



;Asci i "rubout" • 177 

: Check for character was a rubout 



; Address CHDBUF putter 
:Last location in CnOBUF 
;Get putter 
;lf buffer is full stop 



IF CT [IZ] THEN [REFUSE CHAR] : accepting chars 



J[15]_[W2] 
[W1]-[W2]_Y. 

IF CT [IZ] THEN [CMOC 2] 
J[12]_[W6] 
[W6]-CW1]_Y. 

IF NOT CT [IZ] THEN [CWC 3] 



;Carriage return 



;Ascii <LF> 



;Here kfhen char is <CR> or <LF> 
C«DC 2: [W2]_[W1]. 

CALL [PUT CnOBUF] 
CALL [ENABLE PARSE] 
CALL [PUT CMR CRLF] 
'^HDC X: IF [NOT RUN] THENP [PCI IMT CLR] 
.IF/0EBUG3 

J [POOP FLAG]_RAnFILE ADR 
ZERO_Y,ALU_RA«FILE 



:Put <CR> in CnD buffer 



;End echo with <CRxLF> 



.ENDIF/DEBUG3 

ZERO CW1],CALL [SET PF RCOVR] 
[PXCT] [PI REG].Y 29 U STATUS, 
GOTO ICMD PRSEX]" 

ENABLE PARSE: 

j[CMDTKR]_RAnFILE ADR 
GOTO [CnO PTR RESET] 

CMDC 3: [Wl]_rw6]. 

CALL [PUT CMDBUF] 
[W6]_[W1]. 
GOTOP [PUT W16DISMISS] 



; Restore previous level 
;This isn't really an int 



; Point to command taker 
;We can parse now 

;Save character 

: And put in CMDBUF 

;Then echo the char 

;Type Wl then dismiss int 



;Here for typeahead 

TYPE AHEAD: 

J[CnDRPT]_RAMFILE ADR 
ONES F.F Y.ALU RAMFILE 

REFUSE CHAR:" 

J[007]_[W1] 

PUT WUDISMISS: 

CALL [PUT CMR CHR] 
GOTOP CPCI INT CLR] 



; Address repeat counter 
; typeahead kills repeat 

;Asc.i '"^G" 



;Here to process a rubout 
CMD RUBOUT: 

J[C«DPTR] RAMFILE ADR, 

[K 777]_Q 
RANFILE_[W1],NRFRD/1 
Q6[W1]_F, 

F_Q FJ[CMDBUF-1]_[W2] 
[W2]-[W1]_Y, 

IF CT [12] THENP [PCI INT 
CALL [3KUP POINTER] 
J[13'«]_[WI] 
GOTOP [PUT WUDISMISS] 

.IF/FTCTLR 
;Here for a '^R 
CNTRL R: 

J[CMRTKR]_RAMFILE ADR 
, I F/FTCRAM 

RAMFILE [W2].NRFRD/1 

[W2]_CW2] . 
IF NOT CT [IZ] THENP [PCI 
• END I F/FTCRAM 
. I FNOT/FTCRAM 

RAMFILE [W2].NRFR0/1. 
IF NOT"cT [IZ] THENP [PCI 
.END I F/FTCRAM 

J[122]_[W6] 

CALL [PUT CNTRL W6] 

CALL [PUT CMR PROMPT] 
:Copy CMO buffer to CMR buffer 

CALL [ENABLE PARSE] 

GOTO [CRi»3 
CR2: CALL [GET CMO CHR] 

CALL [PUT CMR CHR] 
CRlt: J[CMDPTR]_RAMFiLE ADR 

RAMFILE LV2].NRFRD/1 

J[CM0TKR]_RAMFILE ADR 

RAMFILE [W1].NRFRD/1 

[W1].X0R.[W2]_Y. 
IF NOT CT [IZ] THEN [CR2] 

ZERO Y.ALU RAMFILE, 
GOTOP [PCT INT CLR] 
.ENOIf/FTCTLR 



; Address putter 

;Get comnand putter 

;Leave only ramfile adr in Q 

;See if any characters to delete 
CLR] ; Nothing doesn't echo 
; Backup pointer 
;Ascii "\" 
;Type W1 then dismiss int 



; Address response taker 

;When typing ignore 
;Let latches go 
INT CLR] 



:When typing ignore 
INT CLR] 

:Put "R" in W6 

:Type '^R 

: Retype pronpt 



;Be sure there is anything to do 

:Copy byte to CfW buffer 
: Address putter 

: Address taker 



: Reset CMO taker 



;Here for a '^X 
CNTRL BKSLSH: 
;Here for ^C or '^U 
CNTRL C U: 

J['.00]_[W6] 

Q+[W6]_[W6]. 
CALL [CMD6CMR FLUSH] 

[BITl.] F,FJ[F.0IF.S]_CW13 

CALL [CLEAR CMDFLG] 

CALL [PUT CNTRL W6] 

CALL [PUT CMR PROMPT] 

ZER0_[W1],CALL [SET INT RCOVR] 

GOTOP [PCI INT CLR] 



;To convert 



to 



;Flush command buffer 
; (F.USR) Flags to clear 

;Type '^C or '^U 

;C)ear interrupt recovery 
;Dismiss interrupt 



;Here to turn off F.O (the control 

F.O CLEAR: 

J[F.0]_[W1] 

GOTO [CLEAR CMDFLG] 



flag) 

; Flags to clear for new command 



:Here for ^0 
CNTRL 0: 

CALL [CMRBUF FLUSH] 

J[117]_[W6] 

CALL [PUT CNTRL W6] 

jrCMDFLG]_RAMFILE ADR 

J[F.0]_[W1] 

ramfile_y.[w1]_f,y_[w1] f q 
q.xor.[wi]_f,f_y.alu_ramfTle, 
gotop [pci int clr] 



; Flush command response buffer 

:Ascii "0" 

;Type '^O 

; Address ramfile word 

;Flag we are flushing output 

;Get word from ramfile 

: Set/clear flag 

;Dismiss interrupt 



;Here to clear a flag in the CNOFLG word 
fLEAR CnOFLG: 

J[CMDFLG]_RAMFILE ADR 
RAMFILE_yTnRFRD/1,Y [Wl] F_Q, 

COMPLEMENT [W1]_F 
Q6[W1]_Y.ALU_RAMFILE, 
RETURN 



{Address ramfile word 
;Get old flag word 

;C1ear flag 



;Here for a ^S (Xoff) command 

CNTRL S: 

J[F.S]_[W1] 

CALL [SET CMDFLG] 

GOTOP [PCI INT CLR] 



;F1ag to set 
;Set it 



;Here to set a flag in the CMDFLG word 
SET CMDFLG: 

J[CMDFLG]_RAMFILE ADR 

RAMFILE_Y,NRFRD/1,[W1]_F,Y_[W1] F_Q ;Get old flag word 

Q.0R.[W1] Y,ALU_RAMFILE, :Set flag 
RETURN 



; Address ramfile word 



;Here 


for a '^Z 


CNTRL 


Z: 




IF [NOT RUN] THENP [PCI 




J[132]_[W6] 




CALL [PUT CNTRL W6] 




[BITi.] [Wl], 




CALL [SET CMDFLG] 




;GOTO [CNTRL Q] 


;Here 


for a '^Q (Xon) 


CNTRL 


Q: 




J[F.S]_[W1] 




CALL [CLEAR CMDFLG] 




CALL [SET PCI TXEN] 




GOTOP [PCI INT CLR] 



INT CLR] 







:No 


user mod 


;Asci i 


i " 


Z" 




;^z 








;(F.USR) 


User mode 


; Set 


fl 


ag 




;Also 


cl 


ear 


XOF flag 



if stopped 



;Flag to clear 

;Start transmitter again 
;Dismiss interrupt 



;Here to flush command and command response buffer 
CMD&CMR FLUSH: 

CALL [CMRBUF FLUSH] 

;GOTO [CMDBUF FLUSH] 



;First flush the response buffer 



;Here to flush command buffer 

CMDBUF FLUSH: 

J[CMDTKR]_RAMFILE ADR 
ZERO Y.ALU RAMFILE 
J[CMDRPT]_RAMFILE ADR 
ZERO_Y,ALU_RAMFILE 
J[CMDPTR]_RAHFILE ADR 

CMD PTR RESET: 

J[CMDBUF-1] [Wl] 
[Wl] RAMFILE, 
RETURN 



; CI ear taker 

; Address repeat counter 

; CI ear repeat counter 



;Adr of 1st word-1 of buffer 
; I ni tial ize putter 



;Here to flush command response buffer 
CMRBUF FLUSH: 

JCCMRTKR] RAMFILE ADR 

ZERO_Y,ALU_RAMFILE 

J[CMRPTR]_RAMFILE ADR 
CMR PTR RESET: 

J[CMRBUF-1]_[W1] 

[W1]_RAMFILE, 
RETURN 



;Clear taker 



;Adr of 1st 
; I ni tial ize 



word-1 
putter 



of buffer 



; Routine to put a byte into the ramfile 

; Call with [Wl] ■ char to put 

; Will first increment pointer than store indirect it 

PUT CMDBUF: 

J[CMDPTR]_RAMFILE ADR ; Address putter for command buffer 

PUT CMB: 

CALL [CMB NXT] ;Put byte in ramfile word 

[W2]_RAMFILE, ;Put word back in ramfile 

RETURN 



;Here to get a char from a command line 
GET CMD CHR: 

J[CMDTKR]_RAMFILE ADR 

;GOTO [CMB NXT] 



; Address command char taker 
; Advance to next byte 



Get or prepare to put next byte ir 
Call J [taker or putter]_RAMF I LE 
_[Wl3 ;Byte to be stored 
returns 

[Wl] 



I ramfile CMD or CMR buffer 
ADR 



:byte from ramfile 
[W2] : Ramfile word with 



CMB NXT: 



byte inserted 



RAMFILE_[W2] 

[K -1.0]+[W2]_B. 

IF NOT CT [IN] THEN [CMBPi*] 
J['.]_[W3] 
SWAP [W3]_[W2 LH] 
[W2]+1_[W2 RK] 
CMBPi»: [W2]_RAMFILE, 

Y_RAMFILE ADR 
J[177]_[W3] 
[W3]6[W1]_F,Y_[W1] F_Q, 

RAMFILE Y, 

GOTO [CMBP7] 
CMBP5: LRS [Wl]_[Wl] 

LLSC [W3]_[W3]. 

J [5] CTR 
CMBP6: LRS [Wl]_[Wl] 

LLSC [W3]_[W3]. 

LOOP [CMBP6] 
CMBP7: [K -1.0]+[W2]_B, 

IF NOT CT [IN] THEN [CMBP5] 
J[177]_[W2] 
[W2]&[W1]_B 
RAMFILE [W2] 
[W3]BArI[W2]_B 
Q.0R.[W2]_[W2], 

RETURN 



;Get current pointer 
;Next byte adr 

;First byte is number k 
:Put byte number in LH 
;Next ramf i le adr 
; Store updated pointer 
; and address buffer 
;Get mask for data 

;Get word from ramf i le 

;Shift ramfile word right 
;Shift ffi^sk and byte left 

;Shift ramfile word right 
;Shift mask and byte left 



;Get mask for data 
; Leave only data byte 
:Get ramfile word again 
;Clear slot for byte 
;Add new byte 



;Here to backup the convnand buffer taker 
BKUP CMD TKR: 

J[CMDTKR]_RAMFILE ADR 

;GOTO [BKUP POINTER] 

;Here to backup a pointer 
BKUP POINTER: 

J[A]_CW2] 

RAMFILE_CW1] 

SWAP [W1]_[W2 RH] F_Q,B[W2 RH]_F 

[W2]-Q_F,?_Y, IX_MX ;Test for overflow 

[B1T17]+[W1]_B, ;Previous byte number 

IF NOT CT [MZ] THEN [W1_RAMFILE] 

ZER0_[W1 LH] 

[K -1]+[W1]_B, ;Backup ramfile word 

GOTO [Wl RAMFILE] 



.TOC " A (Address Break) Con«ianel" 

;Here for a A "Address Break" command 

•IF/FTADRB 

A CMO: CALL [GET CMD NUW] 

J[AB IF]_RAMFILE ADR 
CW1]_RAMFILE, 

CALL [GET CMD NUM] 
J[AB RD]_RAMFILE ADR 
[W1]_RAMFILE, 

CALL [GET CMD NUM] 
J[AB WR] RAMFILE ADR 
[Wl] RAMFILE, 
GOTO [CMD PRSE8] 
.END IF/FTADRB 



•TOC " B (Bootstrap) Command" 

jHere for a B "Bootstrap" command 

B CMD: IF [RUN] THEN [CMDERR NWR] 
GOTO [CMD PRSE8] 



.TOC 



C (Continue) Coinmand" 



:Here for a CONTINUE command 



C CMD: IF [RUN] THEN [CMOERR NWR] 
SET LOCAL, CALL [GET CMD PC] 
[BITi*]_[Wl], 

CALL [SET CMDFLG] 
CALL [SET PCI TXEN] 
J [HALT CODE]_RAMFILE ADR 
ZERO_Y,ALU RAMFJLE.SET RUN. 

CALL [SET~P1 MASK] 
GOTO [CMD PRSE8] 



;Try to get a PC from command 
;(F.USR) Console now in user mode 

;Start transmitter 

;We haven't halted 
: Enable interrupts 



GET CMD PC: 

CALL [GET CMD NUM] 
IF CT [UZ] RETURN 
[W1]_[PC], 
RETURN 



;Get suggested starting address 
;Set new PC 



.TOC " D (Deposit) Comnand" 

^Here for a D "Deposit memory" command 

D CMD: ZER0_[W1], 

CALL [GET EXM ADR],0_UC 
DN: CALL [UNMAPPED WRITE] 

.IF/FTFCSL 

CALL [GET CMD NUM] 
[W1]_[MB]. 
IF NOT CT [UZ] THEN [DN] 
.ENDIF/FTFCSL 

GOTO [CMD PRSE8] 

.IF/FTFCSL 

JK CMD: CALL [GET JK NUM] 
[MB]_[PMA] , 
IF CT [UZ] THEN [CMDERR NEA] 
JK L: CALL [GET JK NUM] 

IF CT [UZ] THEN [CMD PRSE8] 
J [EXM ADR]_RAMFILE ADR 
[PMA]_Y,ALU_RAMFILE, 
CALL [UNMAPPED WRITE] 
[PMA]+1_[PMA] , 
GOTO [JK L] 

;Here to get an "Asciized" number 
GET JK NUM: 

ZER0_[MB],1_UZ, 
CALL [GET CMD CHX] 
JK 1: J[75]_[W2] 

[W1]-[W2]_Y, 

IF CT [IN] THEN [GCN 4] 
J[175]_[W2] 
[W1]-[W2]_Y. 

IF NOT CT [IN] THEN [GCN 1»] 
[K 77]6[W1]_B, 
J [2] CTR 
JK 2: A*[MB]_B.LOOP [JK 2] 
[W1]+[MB]_B,0_UZ, 
CALL [GET CMD CHR] 
GOTO [JK 1] 
.ENDIF/FTFCSL 



;No int recovery routine 
;Get adr to deposit 



;Get data 



;Get adr to deposit into 

;Require address 
;Get data to deposit 



;Save last adr deposited 
;Next adr 



Get 1st nonblank char from command 



;Strip extra bits 



.TOC 



E (Examine) Command' 



;Here for a E "Examine memory" command 



E CM: J[E CMD RCOVR] [Wl] 

CALL [GET EXM ADR] , 1_UC 
E CMD RCOVR: 

[PMA]_[PMA],MEM START READ, 
CALL [UNMAPPED READ] 
EC 3: [MB]_[W1]. 

CALL [PUT CMR NUM] 
GOTO [C«D PRSE8] 



; Recovery routine for ints 
;Get memory adr to examine 



;Here to get an address to examine or deposit 

; Call J[adr]_[Wl] ; Interrupt recovery address 

; CALL [GET EXM ADR],0_UC ; f or deposit commands 

; CALL [GET EXM ADR],1_UC ;For examine commands 

; Returns adr in [E] 6 [PMA] , (and for deposits data in MB) 

GET EXM ADR: 

[Wl]_Y, ;Set recovery routine 

IF NOT CT [IZ] CALL [SET INT RCOVR] ; for interrupts 

J[CMDERR E MER]_[W1] ;Recovery routine for examines 

IF CT [UC] CALL [SET PF ME RCOVR] 

CALL [GET CMD NUM] :Get adr to examine 

J [EXM ADR]_RAMFILE ADR 

IF NOT CT [UZ] THEN [GEA2] ; I f no adr use last 

RAMFILE_[W1]. :Get last adr used 

IF NOT CT [UC] THEN [CMDERR NEA] ; Require address 



GEA2: [Wl] [E].ALU RAMFILE. 

IF CT [UC] THEN [GEA6] 
[E]_[PMA] . 
CALL [GET CMD NUM] 
[W1]_[MB], 

IF NOT CT [UZ] RETURN 
:GOTO [CMDERR NEA] 
CMDERR NEA: 

J[ERR.NEA]_[W1] 
G0T9P [CMDERR] 

GEA6: [E]_[PMA], 

CALL [PUT CMR CRLF] 
[PMA]_[W1], 

CALL [PUT CMR NUM] 
GOTO [PUT CMR SLSH] 



:Save address in E and ramfile 
: Branch for examine 
;Save adr in PMA also 
:Get data 

;Requi re data 



: Error code (not enough args) 



;Save adr in PMA also 
: Beg in with a flourish 
:Now type adr 



.TOC " Dl (Deposit I/O) Command" 

^Here for an Dl "Deposit I/O" command 

||F/FTFCSL 

Dl CMD: ZER0_[W1], ;No int recovery 

CALL [GET EXM ADR].0_UC :Get adr to deposit 
[Wl] [«E«-OP], ~ :Put data in right register 

CALL [WRIOX] ;Try to do it 

IF CT [UOVR] THEN [CHDERR NXA] 
GOTO [CnO PRSE8] 
.EMDIF/FTFCSL 



.TOC " El (ExMine I/O) CoMiiand" 



:H*re for an El "Examine I/O" caMMnd 

.IF/FTFCSL 

El CnO: ZERO [Wl], :No int recovery 

CALL [GET EXn ADR] . 1_UC :Get adr to examine 

CALL [RDIOX] ~ ;Do read like RD 10 

IF CT [UOVR] THENP [CNDERR NXA] 

C«n-0P]_[W1], ;Copy data 

CALL [PUT CHR NUN] ; Display data 

GOTO [CNO PRSE8] 
.EMDIF/FTFCSL 



.TOC " DR (Deposit Ranfile) CoMiand" 



:Here for an DR "Deposit RanfMe" ccMMnd 
"jlF/FTFCSL 
IR CnO; ZERO [W1]. :No int recovery 

CALL [GET EXn AOR].0_UC ;Get adr to examine 
[P«A]_Y,Y_RAnFILE ADR 
DRC 3: [IB] RAHFILE, :Deposit ramfile 

GOTO [C«D PRSE8] 

:.TOC " ER (Examine Ramfile) Command" 



:Here for an ER command 

ER CMO: ZER0_[W1]. :No int recovery 

CALL [GET EXn ADR] . 1 UC :Get adr to examine 
[P«A]_Y.Y_RAMFILE ADR~ :Address ramfile 
RAHF ! LE_[W1] ,NRFR0/1 , 

CALL [PUT CNR NUN] 
GOTO [CNO PRSE8] 
.ENDIF/FTFCSL 



.TOC " DV (Deposit Virtual) CoMiiand' 



;Here for an OV "Deposit Virtual" command 

.IF/FTFCSL 

DV CMO: J[DV CHD RC0VR]_[W1] .POP ;Recovery routine for ints 

CALL [GET EXn ADR].0 UC :Get adr to examine 
DV CnO RCOVR: 

SET GLOBAL. CALL [MEMORY WRITE] ;Write virtual 

GOTO [CMO PRSE8] 

:.TOC " EV (Examine Virtual) Command" 

{Here for an EV command 

EV C«D: J[EV CMD RC0VR]_[W1] {Recovery routine for ints 

CALL [GET EXM ADR].1_UC :Get adr to examine 

EV CnO RCOVR: 

SET GLOBAL. CALL [MEM READ 0] ;Read virtual 
GOTO [EC 3] {Rest like E cmd 

•END IF/FTFCSL 



.TOC " H (Ha it) CoMmand" 

;Here for a HALT command 

H CnO: :IF [NOT RUN] THEN [CHOERR NWR] :This is silly if not running 

J [HALT C0NS0LE]_[W1] ; Stopped because told to 

SET HALT CODE: 

J [HALT CODE]_RA«FILE ADR 

[K 77]_Y.Y_29H» MASK, :Stop interrupts 

IF [NOT RUN] THENP [WRITE HSB] 
[Wl] RAnFILE.CLEAR RUN, ;Save code and go type result 
GOTOP [WRITE HSB] 



.TOC " I (Initialize) Command" 

:Here for a INITIALIZE command 

I CMD: IF [RUN] THEN [CHDERR NWR] 
CALL [SYS RESET] 
GOTO [CnO PRSE8] 

SYS RESET: 

ZERO_[PC FLAGS], CLEAR USER ; Initialize register 

ZERO_[EPT], CLEAR PAGED ; Initialize register 

ZERO_[UPT],SET LOCAL ; Initialize register 

ZERO_[SPT]. CLEAR PXCT initialize register 

;Set up PROC REG 

J[33B «ASK]_RAMF I LE ADR ;Want high order 3 bits on 
.IF/FTIOPAG 

RAMFILE [W1],NRFRD/1, CLEAR T0PS20 
•END IF/FTIOPAG 
•IFNOT/FTIOPAG 

RAMFILE [W1],NRFRD/1,SET T0PS20 
.IFN0T/FT20PAG 

FTlOPAG-0 & FT20PAG-0 ;This won't work 

.ENDIF/FT20PAG 
.END IF/FTIOPAG 

FJ[0200]_[W1], ;Line PI level - 1 

COMPLEMENT [Wl]_F ; 7O00O0,,20O 

.'[PROC REG] RAMfTlE ADR ; Address ramfile copy of proc reg 

[W1]_RAMFILE,CLEAR TRAP, 
CALL [RESET PI] 

GOTO [RESET 10] ; Perform an I/O reset 



.TOC " R (Repeat) Command" 

J Here for a REPEAT command 

REPEAT: CALL [GET CMD NUM] ;Get repeat count 

J[CMORPT]_RAMFILE ADR ; Address repeat counter 

NEGATE [W1]_F,F_Q_Y,IX_MX, 

CALL [RAMFILE_W1] ;Get current value for counter 

[W1]+1_Y,ALU_RAMFILE, ; Update repeat counter 

IF CT [IZ IX HX] THEN [CMD PRSE8] 
[W1]_Y. 

IF CT [IN] THEN [REPEAT 3] 
(i_Y,ALU_RAMFILE ;Reseed repeat counter 

REPEAT 3: 

CALL [ENABLE PARSE] 
GOTO [CMD PRSE8] 

RA«FILE_W1: 

RArtFILE_[Wl],NRFRD/l, 
RETURN 



•TOC " S (Start) Command" 

;Here for a START command 

S CMD: IF [RUN] THEN [CMDERR NWR] 

CALL [SYS RESET] ; Reset lots of things 

GOTO [C CMD] :Rest is like a C command 



.TOC " SH (Shut Down) Command" 

SH CMD: J [30] [PMA] 

ONES.TmpT, ;Write -1 in location 30 

CALL [v .nAPPED WRITE] 
GOTO [CMD ?RSE8] 



.TOC 



SI (Single Instruction) Conniand' 



SI CHD: IF [RUN] THEN [CMDERR NWR] 
SET LOCAL, CALL [GET CMD PC] 
ZER0_[W1], 

CALL [SET PF ME RCOVR] 
JCHALT C0DE]_RAMFILE ADR 
J [HALT SI]_[W2] 
J [SI I RCOVR] [Wl] 
[W2]_RAMFILE,~ 

CALL [SET INT RCOVR] 
CALL [SET PI MASK] 
2ER0_[W1], 

CALL [SET PF ME RCOVR] 
31 RCOVR: 

[PC]_Q_[E] . 

SPEC SEL/PAGE TABLE ENTRY, 

GOTOP [I FETCH 0] 



;Try to pick up a PC 
;Memory errs & page fails 
; are usual 
; Address halt code 
;Single instruction halt 

;Set Halt code 

;A11ow interrupts 

; Normal recovery for 

; for mem errs 6 page fails 

;Fut PC in ram address 6 Q 



;Here if got interrupted out of SI cmd 
SI I RCOVR: 

[K -1]+[PC RH]_B. 
GOTO [SI RCOVR] 



; Backup PC 



;Here to set exit for interrupt service 
SET INT RCO\R: 

J[INT RCOVR] RAMFILE ADR ; Address ramfile 

[Wl] RAMFILE, RETURN 



.TOC " SM (Start u-code) Command" 

jHere for a START u-CODE comnnand 

llF/FTSM 

?N CMD: CALL [GET CMD NUM] 

CW1]_Y,G0T0 Y ;Go whither he asketh 

.ENDIF/FTSM 



.TOC " T (Test) Command" 

;Here for a SELF TEST command 

T CMD: IF [RUN] THEN [CMDtRR NWR] 
GOTO [TEST] 



;Here to write [Wl] into Ramfile location Q+1 
RF WRITE: 

Q+1_F»F_Q_Y,Y_RAMFILE ADR, ;Point Ramfile at right location 
GOTO [W1_RAMFILE] ;Wr i te Ramf i le 

.IF/FTDIAG 

;Here to load LEGAL SECTION, SECTION 0, AC REF, CONTEXT MATCH in Wl 
; Call with expected page table data in W2, expected latches in W3 
RDPG LATCHES: 

CALL [TVR XX] ; Check data expected is obtained 

ZER0_[W1], 

IF [LEGAL SECTION] CALL [W1+1_W1] 
2*[W1]_[W1], 

IF [SECTION 0] CALL [W1+1_W1] 
2*[W1]_[W1], 

IF [AC REF] CALL [Wl+1 Wl] 
2*[W1]_[W1], 

IF [CONTEXT MATCH] CALL [Wl+1_Wl] 
[W1].X0R.[W3]_Y, 

IF CT [iZ] RETURN 
[W3]_[W2], 
GOTO [ALU BROKE] 

SET T0PS20 LATCH: 

SET T0PS20, RETURN 
SET TRAP LATCH: 

SET TRAP, RETURN 
^ET PXCT LATCH: 

SET PXCT, RETURN 
SET RUN LATCH: 

SET RUN, RETURN 
SET LOCAL LATCH: 

SET LOCAL, RETURN 

W1+1_W1: 

[W1]+1_[W1]. ;Flag is set 

RETURN 

;Here to initialize Q with first ramfile adr 

TVR XO: J[1777]_[W1],Y_RAMFILE ADR ;Highest adr in Ramfile 
[W1]„Q. RETURN 

;Here to verify ramfile contents are correct 
TVR XX: RAMFILE_[Wl1,Nr.FRD/l, 

IX_MX,LCTr.T/l 
TVR XY: [W1].X0R.[W2]_Y, 

IF CT [IZ] RETURN 
GOTO [RF BROKE] 
.ENDIF/FTDIAG 



.TOC " Zn (Zero memory) Command" 

:Here for a Zero Memory command 
.IF/FTZM 

ZM CMD: J[ZMC 5]_CW1] ;Routine for memory errors 

ZERO_[MB] , 
CALL [SET PF ME RCOVR] 
[K -1]_[PMA] 
ZM 10: J[EXM ADR]_RAMF I LE ADR 

[PMA]s-l_[PMA],ALU_RAMFILE, 
CALL [UNMAPPED WRITE] 
[PMA] [PMA],MEM START READ, 
CALL~[UNMAPPED READ] 
[MB]_Y,IF CT [IZ] THEN [ZM 10] 
GOTO [CMDERR MER] 

ZMC 5: [K -1.0]6[W1] Q ;Get only code 

Q.X0R.[BIT17]_F,F_Y. 
IF CT [IZ] THEN [CMD PRSE8] 

GOTO [CMDERR MER] 
.ENDIF/FTZM 



;Here on incorrect u-code dispatch 
NCE: ;GOTO [U-CODE ERR] 

;Here on a horrible u-code problem 
U-CODE ERR: 

J [HALT DSP]_[W1] ;l11ega1 u-code dispatch 

GOTOP [SET HALT CODE] 

;Here if the ALU is broken 

ALU BROKE: 

;Here if the Ramfile (or addressing logic) is broken 

; Bad data in W1 , good data in W2. test # on Y bus 

RF BROKE: 

[PXCT]_Q ;Test code 

: W1 on A bus, W2 on B bus, test # on Y hus 
BR0KE9: R SEL/W1,B SEL/W2,0 CO , Q+C_F , F_Y , 
GOTO [BR0KE9] 



.TOC " WRITE HALT STATUS BLOCK" 

:Here when ISP code halts 
WRITE HSB: 

[K 77]_Y.Y_29U «ASK,POP :Disanow interrupts 

[K 7777.-0&[PC]_B,POP ;Mask PC to 30 bits 

J [HSB PMA]_RAMFILE ADR, POP ;Save P«A here 

[P«A]_RA«FILE,POP ;Save PMA 

J [HSB] RAnFILE ADR :Get adr of Halt Status Block 

.IF/FTCFcAM 

RAHFILE_[PMA].NRFRD/1 

[PNA]_[P«A], ;Let latches go 

IF CT [IZ] THEN [WHSB2] :No block - don't write 

.ENOIF/FTCRAn 
.IFNOT/FTCRAM 

RAMF I LE_[PMA] , NRFRD/ 1 , 
IF CT [IZ] THEN [WHSB2] ;No bloc\ - don't write 

.ENDIF/FTCRAM 

J [HSB NB]_RANFILE ADR ;<^ave MB here 

J [HSB HER]_[W1] • .ecovery in case of memory errs 

[«B]_RAMFILE, 
CALL [SET MER] 

ZERO [W1],IF [LOCAL] CALL [W1+1_W1] 

2*[wT] [W1].IF [USER] CALL [Wl+1 Wl] 

2*[W1]~[W1],IF [PAGED] CALL [Wl+T Wl] 

2*[W1]"[W1],IF [RUN] CALL [Wl+1 wT] 

2*[W1]"[W1],IF [T0PS20] CALL [wT+1 Wl] 

2*[W1] [W1],IF [PXCT] CALL [Wl+l_wT] 

2*[WI]"[W1],IF [TRAP] CALL [Wl+1 Wl] 

[Wl] [«B],CALL [UNMAPPED WRITE] 

[W2]~[HB],CALL [UNMAPPED WRITE NEXT] 

[W3]I[MB],CALL [UNMAPPED WRITE NEXT] 

[Wl»]_[MB],CALL [UNMAPPED WRITE NEXT] 

[W5]_[MB],CALL [UNMAPPED WRITE NEXT] 

[W6]_[MB],CALL [UNMAPPED WRITE NEXT] 

[IR]~[MB],CALL [UNMAPPED WRITE NEXT] 

[PC] _ [MB], CALL [UNMAPPED WRITE NEXT] 

[E]_I«B],CALL [UNMAPPED WRITE NEXT] 

J [HSB MB]_RAMFILE ADR ;Get saved MB 

RAMFILE_[nB],NRFRD/1.CALL [UNMAPPED WRITE NEXT] 

[AC-0P]_[MB],CALL [UNMAPPED WRITE NEXT] 

[MEM-OP] [MB], CALL [UNMAPPED WRITE NEXT] 

[PXCT]_[MB],CALL [UNMAPPED WRITE NEXT] 

[K 77]I[MB].CALL [UNMAPPED WRITE NEXT] 

[K 777J_[«BJ,CALL [UNMAPPED WRITE NEXT] 

[K -1.0]_[«B].CALL [UNMAPPED WRITE NEXT] 

[PC FLAGS]_[MB],CALL [UNMAPPED WRITE NEXT] 

[AC-0P+1]_[MB] .CALL [UNMAPPED WRITE NEXT] 

[MEM-0P+1]_[MB].CAL^ [UNMAPPED WRITE NEXT] 

[EPT]_[nB].CALL [UNMAPPED WRITE NEXT] 

[UPT]_[MB],CALL [UNHAPPED WRITE NEXT] 

[SPT]~[MB].CALL [UNMAPPED WRITE NEXT] 

J [HSB PnA]_RAI1FILE ADR :Get saved PMA 

RAMFILE_[MB],NRFRD/1,CALL [UNMAPPED WRITE NEXT] 

[TIME]_CMB].CALL [unmapped WRITE NEXT] 

[PI REG]_[MB],CALL [UNMAPPED WRITE NEXT] 

[BIT1.]_[MB],CALL [UNMAPPED WRITE NEXT] 

[BIT12]_[MBJ.CALL [UNMAPPED WRITE NEXT] 

[BITI7] [«B].CALL [UNMAPPED WRITE NEXT] 



[C0!C1]_[«B],CALL [UNMAPPED WRITE NEXT] 

[K 7777--0 C«B],CALL [UNMAPPED WRITE NEXT] 

[K 407777.0] [MB]. CALL [UNMAPPED WRITE NEXT] 

[K -1]_[MB].CALL [UNMAPPED WRITE NEXT] 

J[HALT"cODE]_[W5], ; Address halt code in ramfile 

Y^RAMFILE ADR 
J[11] [W6] ;A1so want 9 more locations 

RAMFILE [MB], 

CALL [UNMAPPED WRITE NEXT] 
WHSBl: [W5]+1_[W5].Y_RAMFILE ADR ;Next ramfile location 

RAMFILE [MBJ.NRFRD/1 
ZERO_Y,ALU_RAMFILE, 

CALL [UNMAPPED WRITE NEXT] 
[K -1]+[W6]_B, 

IF NOT CT [IZ] THEN [WHSBl] 

;Type <CR><LF>?H<hal t code> <fla8S> <PC> 

WHSB2: ZERO [Wl].CALL [SET INT RCOVR] :ln case was SI cmd 

[BITI»]J[F.0!F.S]_[W1], ;(F.USR) Flags to clear 

SET LOCAL 
CALL [CLEAR CMDFLG] 

J[110]_[W6] ;Asci i "H" 

CALL [PUT ? W6] 
J [HALT CODE] RAMFILE ADR 
RAMFILE_[W1]TnRFRD/1, ;Get halt code from ramfile 

CALL [PUT CMR NUM] ; and type it 

CALL [PUT CMR SPACE] :Type a space 

[PC FLAGS] [Wl], ;Type flags 

CALL [P6DNUM] 
CALL [PUT CMR SPACE] 
[PC]_[W1], 

CALL [PUT CMR NUM] 
GOTO [CONSOLE PROMPT] 

;Here in case of memory errors while writing HSB 
HSB MER: 

J [HALT HSBMER]_[W1] 

J [HALT CODE]_RAMFILE ADR 

[Wl] ramfileT 

GOTO [WHSB2J 

Wl+1 Wl: 

[W1]+1_[W1], ;Flag is set 

RETURN 



.TOC "Instruction fetch" 

I FETCH: 
.IF/DEBUG2 

IF [GLOBAL] THEN [U-CODE ERR] 
.ENDIF/DEBUG2 
.IF/SHSTL 

CALL [SH0W6TELL] 
,ENDIF/SH6TL 

[PC]_Q_[E] , ;Put PC in ram address & Q 

SPEC SEL/PAGE TABLE ENTRY, 
IF [NOT RUN] THENP [WRITE HSB] 
I FETCH 0: 

Q&[K 777]_Q RA«FILE_[W1],NRFRD/1, ;Put on page adr in Q 

CLEAR PXCT,IX_MX,LCTXTn/l, ; Put page entry in Wl 

IF [UNPAGED OR AC] THENP [I FETCH 1] 
Q.0R.[W1]_[PMA] , ; Start memory 

nEM START READ, 

IF [CONTEXT MATCH] THENP [I FETCH 3] 
I FETCH 05: 

[PC]+1_[PC RH], ; Increment PC 

CALL I«EM READ 0] 
GOTOP [I FETCH U] 

:Here if not paged or AC REF 
I FETCH 1: 

[E] [PMA],SPEC SEL/VHA. :Address AC in Ramfile 

IF [AC REF] THENP [I FETCH 05] 

[E]_[PMA],«EM START READ :Start memory 

;Here if not paged or paging done 
IFETCH 3: 

[PC]+1 [PC RH],ME« HOLD, ; Increment PC 

•■HECK INTERRUPTS 
ME«_IR_[1R],SPEC SEL/XR :Read memory into IR 

: Set XR*0 and g flops 
[IR]_[E RH].MEH HOLD. 

IF [NO BUS ERROR] THENP [IFETCH EFA] 
[K -1]+[PC RH] B. ; Backup the PC 

GOTO [IFETCH 05] : And try again 

;Here on an XCT, PXCT, LUUO 
IFETCH i»: 

[nB]_[lR],SPEC SEL/XR, ;Set XR-O and « flops 

LOAD IR 

{Here with SPEC SEL/XR to set XR-O and g flags 
IFETCH EFA: 

[IR]_[E RH],SEL AC+[0], ;Y rh_E rh 

IF [NOT (I OR XR)] D [OPERAND FETCH] ;Dispatch on op code to get operands 
[IR]_Y,SPEC SEL/XR, ;Do effective adr calc 

CALL [EFA 2] 
SEL AC+[0], 
DISPATCH [OPERAND FETCH] ;Dispatch on op code to get operands 

;Here if instruction being done under PXCT 
IFETCH PXCT: 

J[Oi»00]_[PXCT RH] ;PXCT bit for effective adr calc 

[K 7777. -1]&[E]_B. SET LOCAL, 



CALL [SET PXCT CTXT] ;Set context 

[IR]_[E RH],SPEC SEL/XR ;Y rh E rh 

IF [T OR XR] CALL [EFA 2] 
CALL [SET CURRENT CTXTj 
SEL AC-^[0], ;Dispatch on op code to get operands 

DISPATCH [OPERAND FETCH] 



.TOC "EFFECTIVE ADDRESS CALCULATION" 

Here to do an effective address calculation 
Call: x_ [MB], SPEC SEL/XR 
Returns adr in E 

clobbers W1 
EFA CALC: 

[MB]_[E RH],SET LOCAL, ;Y rh_E rh 

IF [NOT (I OR XR)] RETURN 

EFA 2: [K 407777.0]_Q RAMF I LE_[W1] ,NRFRD/1 , ;Q^t. index register 

IF [NOT INDEXED] THEN [FETCH IW] 
RAMF I LE_[MB] 
Q6[W1] Y, IX_MX, ; Check section # in IDX 

IF [SECTION 0] THEN [EFA LCL INDEX] 
[K - 1.0] BARS [E]_Q, ;Put E rh in Q 

IF CT [(MNxMOVR) !M2] THEN [EFA LCL INDEX] 
Q+[W1] [E], SET GLOBAL, : IDX (6-35) +Y (18-35) _E (6-35) 

IF [NOT B BIT 18] THEN [EFA i»] 
[K -1.0]+[E]_B, ;Sign extend Y 

IF [NOT INDIRECT] RETURN 
GOTO [FETCH IW] 
EFA k: IF [NOT INDIRECT] RETURN 
GOTO [FETCH IW] 

EFA LCL INDEX: 

[W1]+[E RH] B, :Y rh+IDX rh E rh 

SET LOCAL. 

IF [NOT INDIRECT] RETURN 
;GOTO [FETCH IW] 

FETCH IW: 

READ [E] ; Fetch indirect word 

; and SPEC SEL/IW 
.IFN0T/FT20PAG 

GOTO [EFA CALC] 
.ENDIF/FT20PAG 
.IF/FT20PAG 

RAMF!LE_[W1],NRFRD/1, ;Get index register 

IF [Sr:TION 0] THEN [EFA CALC] 
CLEAR LOCAL, 

IF [ILLEGAL IW] THENP [PF X2i»] 
IF [LOCAL IW] THEN [EFA CALC] 
[MB]_[E]. 

SPEC SEL/PAGE TABLE ENTRY, 
IF [NOT (I OR XR)] RETURN 
[NB]+[Wl]_Q, ;XR(6-35) + iW(6-35)_Q 

IF [NOT INDEXED] THEN [FETCH IW] 
Q_[F.] . 
SPEC SE'./PAGE TABLE ENTRY, 
IF [NOT INDIRECT] RETURN 
GOTO [FETCH IW] 
.ENDIF/FT20PAG 



.TOC "OPERAND FETCH" 

^These routines fetch instruction operands 

I if single operand is put in MEn-OP 

; AC & men) operands are put in AC-OP and MEH-OP 

; IX_HX for MEM-OP 

; IX~UX for AC-OP 

;Doub1e AC fetch - AC_«EM-OP, AC+1 MEM-OP+1 
DFETCH AC: 

RAMP I LE_ [MEM-OP], NRFRD/1. ; Fetch first AC 

IX_MX, ; Latch \Z in MZ 

SEL AC+Cl] ; Point RAMFILE at AC+1 

RAMFILE_[MEM-0P+1].NRFRD/1, ;Get 2nd AC from RAMFILE 

SEL AC+[0], ; Repoint RAMFILE at AC 
DISPATCH [INST EXCT] 

; Double AC & Mem fetch 
DFETCH AC6MEM: 

RAMFILE_[AC-0P],NRFRD/1, :Get 1st AC 

SEL AC+[1] 
RAMFILE_[AC-0P+1],NRFRD/1, ;Get 2nd AC 

GOTO [DFETCH MEM] 

; Double word fetch from memory 

; Sets MX according to highorder operand 

DFETCH MEM: 

[K 7777.-1] 6 [E]_F,F_Q_B, ;Get 1st operand 

SPEC SEL/PAGE TABLE ENTRY, 
IF [PXCT] THEN [PXCT DFETCH] 
CALL [MEMORY READ] 

[MB]_[MEM-OP] , -.Save 1st operand 

CALL [READ NEXT] 

[MB]_[MEM-0P+1], ;We don't need to backup E 

GOTO [DFM 8] ; because noone uses it again 

PXCT DFETCH: 

JC0200]_[PXCT RH] ;Bit for this flavour PXCT 

CALL [SET PXCT CTXT] 

[K 7777.-l]&[E]_F,F_Q_B, ;Get 1st operand 

SPEC SEL/PAGE TABLE ENTRY, 
CALL [McMORY READ] 

[MB]_[MEM-OP] , ;Save 1st operand 

CALL [READ NEXT] 
[MB]_[MEM-0P+1], 
CALL [SET CURRENT CTXT] 
DFM 8: [MEM-OP]_Y,IX_MX,SEL AC+[0], ;Set flags 

DISPATCH [INST EXCT] 



:Sing1e AC and memory word fetch 
FETCH ACSHEM: 

RAHFILE [AC-0P],NRFRD/1, ;Get AC from RAMFILE 
GOTO [FETCH MEM] 

iSingle word fetch from memory and set MX according to data 
FETCH MEM: 

[E]_Q_[PMA], ;Read memory operand if not PXCT 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEMORY READ] 
[MB]_F,F_Q_[MEM-OP], ;Copy to right reg and set flags 

IX_MX,SEL AC+[0], 

IF~[NOT PXCT] D [INST EXCT] 
CALL [PXCT FETCH 200] ;Get data 

[MB] _F,F_Q_ [MEM-OP], ;Copy to right reg and set flags 

IX_MX,SEL AC+[0], 

DISPATCH [INST EXCT] 

;Sing1e AC and memory word fetch 
FETCH AC6MEM(W) : 

RAMFILE_[AC-0P],NRFRD/1, ;Get AC from RAMFILE 

GOTO [FETCH MEM{W)] 

;Single word fetch and verify writable from memory 
FETCH MEM(W) : 

[E]_Q_[E] , ;Read memory operand if not PXCT 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEMORY READ] 
[MB] _F,F_Q_ [MEM-OP], ;Copy to right reg and set flags 

I X_MX , 

IF [NOT PXCT] THEN [FM(W) 2] 
CALL [PXCT FETCH 200] ;Fetch data 

[MB] _F,F_Q_ [MEM-OP], ;Copy to right reg and set flags 

IX MX,SEL AC+[0] 
FM(W) 2: 

B SEL/W1,SEL AC+[0], ;Check writable from paging ram 

IF [B BIT 3] D [INST EXCT] 
IF [UNPAGED OR AC] D [INST EXCT] 

CALL [M W XX] ;Try to make writable 

SEL AC+[0], DISPATCH [INST EXCT] 



:S ingle AC fetch and immediate operand 
.FETCH ACS I: 

RAMFILE_[AC-0P],NRFRD/1, ;Get AC from ramfile 
GOTO [FETCH I] 

; Immediate mode operation 
FETCH I: 

SWAP [K -1.0]_[MEM-0P] ;Mask for immediate operand 

[E] & [MEM-OP] _F,F_Q_B, I X_MX, ;Get immediate operand 
SEL AC+[0], 
DISPATCH [INST EXCT] 

;S ingle AC fetch but don't set Mx flags 

FETCH AC: 

.IF/FAST 

RAMFILE_[«EM-0P],NRFRD/1, ;Get AC from RAMFILE 
DISPATCH [INST EXCT] 
.ENDIF/FAST 

;S ingle AC fetch and set Mx flags 

FETCH AC (MX) : 

RAMFILE_[MEM-0P],NRFRD/1 ;Get AC from RAMFILE 
[MEM-OP]_ [MEM-OP], I X_MX. ;Set Mx flags 
DISPATCH [INST EXCT] 



; Fetch AC and fetch 10 word 
FETCH AC6I0: 

RAMF I LE_[AC-OP] , NRFRD/ 1 

; Fetch 10 word 
FETCH 10: 

CALL [RDIOX] 

SEL AC+[0], 
IF NOT CT [UOVR] D [DISPATCH 3] 

GOTO [10 PF] 



;Get AC from RAMF I LE 



;Get data 

; Repoint RAMFILE at AC 



;Here to do an 10 write 
; returns with UOVR if illegal 
RDIOX: [K 7777.-l]&[E]_B.l_UOVR. 
CALL [VAL 10 ADR] 

[E]_[PMA], START 10 READ, 
IF CT [rtN] THEN [RDIO TTY] 

I 0_ [MEM-OP] 

0_UOVR,IF [NO BUS ERROR] RETURN 
.IFNOT/FTCKBP 

IF [NOT MEM EXISTS] THEN [SET UOVR] 

IF [NOT MEM FAULT] RETURN 
.ENDIF/FTCKBP 

;here to set the u-overflow flag 
SET UOVR: 



;Strip extraneous bits 
; Validate 10 address 
;Send 10 address 

;Perform transfer 



1 UOVR, RETURN 



;Set flag and exit 



Here to validate 10 address 
Call with address in E 

If tty returns IN. address in W6, TTYRCV in Wl, 7 in W2 
VAL 10 ADR: 
.IF/FTM37 

J[7760]_[W1] 

SWAP [W1]_[W1],1_U0VR 

[Wl]6[E]_y. 
IF NOT CT [IZ] THENP [VI A9] 
.ENDIF/FTMBZ 

J[LNZSW] [Wl] 
VIA9: [E]-[W1]~Y, 

IF NOT CT [IN IX_MX] RETURN 

[E]_[W6],Y_RAMFILE ADR 

LRS [W6]_[W3],PUSH J[l] CTR 

LRS [W3]_[W3],RFCT 



;Build mask for address 

;We are checking bits 6-13 of E 

; I f nonzero i 1 legal 

;lf illegal POP, POPJ 

;First non tty adr 



J[7]_[W2] 
[W2]BAR6[W6]_B 
[W2]&[W3] B 
SWAP [W3]_[W6 LH] 
J [TTYRCV BITS]_[W1]. 
RETURN 



;Address ramf i le 
;Copy & shift address 
;Shift right 



;Make adr of status word 

; Leave only line number in W3 

:Min legal address 



;Here when reading TTY register 
RDIO TTY: 

[E]-[W1]_F.F_Q_Y. 

IF CT [IN IX MX] RETURN 
RAMF I LE_[MEM-OP] , 

IF CT ImZ] THEN [RDIOTM] 
UOVR 
[W2]&[W6]_F.F_Q_Y, 



;Get data from ramf lie 
: Leave only word offset 



IF NOT CT [IZ] RETURN 



;lf not reading status done 



;Here if reading the status register 
fiDIOTO: CALL [RD PCI SR] 
J[30O]_[W2] 
[W2]&[W1]_B, 
CALL [SWAP W2_W2] 
[W2]BAR6[ME.V0P]_B, 
CALL [SWAP W1_W1] 
[W1].0R.[MEM-0P]_B, 
RETURN 



;Mask for SR76SR6 
; Leave only SR76SR6 

;C1ear old SR7&SR6 



.IF/FTTTYF 

RAMFILE_[MEM-OP],0 UOVR, 
CALL [ZERO_RAMF I LE] 
[W1]BAR6[W6]_B,Y_RAMFILE ADR 
RAMFILE [W5],NRFRD/1, 

CALL [CLR RDN] 
GOTO [SET PROC REG] 
.ENU IF/FTTTYF 



;Get received char 

;Make adr of line block 
;Get current status 

;Be sure int flags are correct 



;Here to read TTYRCV BITS 
RDIOTM: RAMF I LE_[MEM-OP] ,0_UOVR, 
RETURN 



.TOC 



"INSTRUCTION EXECUTION' 



;Here for LUUO's have already been through CHK PC SECT 



LUUO: 



;Check PC section 



IF [SECTION 0] THEN [LUUOO] 
IF [EXEC] THEN [MUUO] 
J['t20]_[PMA] 
[UPT]+[PMA]_B,MEM START READ, 

CALL [UNMAPPED READ] 
[MB]_[P«A].SET GLOBAL. 

CALL [SV UUO STS] 
WRITE [PMA] 

[PC] [HB],CALL [WRITE NEXT] 
[MEM-OP]_[NB],CALL [WRITE NEXT] ;Write 30 bit E 
[E]+1_[eT, jFetch new PC 

SPEC SEL/PAGE TABLE ENTRY, 

CALL [MEMORY READ] 
[MB]_[PC],SET LOCAL, 

GOTOP [I FETCH] 



;Offset into UPT for LUUO block 
;Location which has block adr 

;Save adr in PMA 

;Write flags, code, ac 
;Write 30 bit PC 



;Here if LUUO is done in section 
LUUOO: SWAP [IR]_[MB], 

CALL [LUUO 2] 
SWAP [E]_[MB LH] , 

CALL [SWAP MB MB] 
J[i»0]_[E] 
[E]_[PMA] . 

IF [EXEC] THEN [LUUOOE] 
WRITE [E] 
[E] + 1_Q_[E]. 

SPEC SEL/PAGE TABLE ENTRY, 

CALL [MEMORY READ] 
GOTOP [I FETCH 1«] 
LUUOOE: [EPT]+[PMA] B, 

CALL [UNMAPPED WRITE] 
[PMA]+1_[PMA],MEM START READ. 

CALL [UNMAPPED READ] 
GOTO [IFETrn i»] 



;Put opcode A in MB rh 
;Want E i n RH 



;Save info 

;Get instruction to execute 



;Save opcode and E 



SWAP MB MB: 

SWAP [MB] [MB], 
RETURN 



:Put Opcode in LH 



;Put opcode A in 
;Put 0, .opcode A 



MB 

i n 



rh 
MB 



;Here as part of MUUO or LUUO to put [f lags, , oped] , [PC] _F, [E] in MB 
: Strips PC to 30 bits, puts E in MEM-OP 
Iv UuJ STS: 

SWAP [IR]_[MB], 
CALL [LUUO 2] 
[PC FLAGS]_[MB LH] 
[K 7777.-l]S[PC]_B 
E_MEM-OP: 

[E]_[MEM-OP], SECTION SELECT 
[K 7777.-l]£[MEM-OP] B, 
IF [NOT AC REF] RETURN 
[PC] _Y, SECT I ON SELECT, 

IF [GLOBAL] RETURN 
IF [SECTION 0] RETURN 
[B!T17]_[MEM-0P LH], 
RETURN 



;Strip PC to 30 bits 

;Preserve RH of AC 
;Strip extraneous bits 

;Check PC section 



;Sect = 1 here 



;Here to put 0,, opcode A in MB 
LUUO 2: J[37]_[W1] 

[W1]BAR6[MB]_B, 
RETURN 



;Get mask for OPcode and AC field 
;C1ear extraneous bits 



.NOBIN 



T0PS20 
+ + 

l(2lt ! flags 10 1 opcode ! A ! 00 ! 
+ + 

'•25 ! 00 ! PC ! 

+ + 

i»26 ! 00 I E I 

+ + 

'♦27 ! process cont.ext word 1 

+ + 



TOPS 10 
+ + 

I opcode ! AC ! 00 ! E ! 
+ + 

! flags ! PC ! 
+ + 

! process context word ! 

+ + 



.BIN 



;Here for rtUUO's 

; Will do several 291C pops Just in case 

rtUUO: J[i«2'»]_[PMA],PCP 

[UPT]+[PNA] B, 
CALL [SV UUO STSj 
.IF/FT20PAG 
.IF/FTIOPAG 

IF LT0PS2O] THEN [huuO 1] 
.ENDIF/FTIOPAG 
.ENDIF/FT20PAG 
.IF/FTIOPAG 

SWAP [«B]_[MB] 

[E]_[«B RH], 
CALL [UNMAPPED WRITE] 

[PC FLAGS]_[«B] 

[PC]_[«B RH], 
CALL [UNMAPPED WRITE NEXT] 

CALL [GET CONTEXT WD] 

CALL [UNMAPPED WRITE NEXT] 

[PMA]+1_CPMA] , 
GOTO [MUUO 2] 
•ENDIF/FTlOPAG 



;Offset into UPT for block 
; Physical adr of block 



;Other side please 



;Point to '♦27 



;Here for T0PS20 MUUO 

.IF/FT20PKG 

MUUO l: LK 7777 .-1]6[PC]_B, 

CALL [UNMAPPED WRITE] 
[PC]_[MB]. 

CALL LUNMAPPED WRITE NEXT] 
[rtEM-OP]_[MB] , 
CALL [UNMAPPED WRITE NEXT] 
CALL [GET CONTEXT WD] 
[PMAj_Q_[i>MA] . 
CALL [UNMAPPEP WRITE NEXT] 
.tNDIF/FT20«»AG 

;Hei e to get new PC on an MUUO 
MUUO 2: IERO_[PC FLAGS], 

IF [EXEC] THEN [MUUO '♦] 
J['»] [Wl], POP, SET EXEC 
[WI]+[PMA]_B.POP 
J ['♦000] [Wl] 
SWAP [wT]_[PC FLAGS] 
MUUO k: [PMA3-»-1_[PMA],MEM START READ. 
CALL [UNMAPPED KrAH] 
[M8]_[Pr].SFT LOCAL, 



: Strip PC to 30 bits 
;Write flags,, op cd.ac 
;Wri te 30 bit PC 

:W: ite 30 bit E 

;Get context word next 

; Write context word in block 



;Clear flagj 



Bit for previous context user 



Get new PC 



IF [T0PS20] THEN [I FETCH] 
[?C FLAGS].OR. [MB]_B, ;Add prev context user 

GOTO [MB PC FLAGS] 



;Here for OnOVNx 

DMOVNX: 2*[«EM-0P+1]_Q ;Put low order bits in C 

NEGATE Q_F,F_Q_Y.IX_MX :Negate low order bits 

[MEM-OP] BAR+C F,MC_C IX_UX, ; Negate high order bits 

F_[MEM-OP] 
Q_F,LRS F_B,B SEL/MEM-OP+1 , ;Save loworder portion 
0_SION QION, 

IF NOT CT [MZ] D [OPERAND STORE] 
IF CT [UZ] THEN [SET CO! CI STORE] 
IF NOT CT [UOVR] D [OPERAND STORE] 
GOTO [SET OVICIITI STORE] 



;Here after P£S SETUP for ADJBP 
ADJBPO: [AC-OP]_[AC-OP-H],IX_MX, 

IF [AC.EQ.O] THEN [TO NOWHERE] 
CW6]_Y, 

IF CT [MN IX MX] THEN [ADJOi*] 
ZERO_[AC-OP] .GOTO [ADJO6] 
ADJOi«: ONES_[AC-OP] 
ADJO6: [K -1.0]BAR6[W5]_Q, 

IF CT [MZ IX_MX] THEN [ADJBPg] 
ADJBP 1: Q-[W6] F,F_Q, 

IF NOT CT [IN] THEN [ADJBP 1] 
; Count bytes in word 
J[i.l»]_[Wl] 

ONES [W3]JX MX ; Count by 

ADJBP2: Q+[W6]_F.F_Q~ 
[W1]-Q_F,F_Y, 

IF CT [IN] THEN [ADJBP3] 
[W3] + 1_[W3],IX_MX, ; 

GOTO [ADJBP2] 
/1DJBP3: [AC-0P]_[AC-0P+1], ; 

IF CT I(MNxMOVR) IMZ I X_MX] THEN 
[W3] _ [MEM-OP], I X_MX, : 

CALL [DIVSUB] ; 

[MEM-0P+1]_Y, 
IF CT [IZ IX_MX] THEN [ADJBP5] 
ADJBP5: ROR [W5]_[AC-0P] .PUSH J[i»]_C1R 
ROR [AC-OP] [AC-OP], 

RFCT 
J['»000]_[W1] 

SWAP [W1]_[W1],SEL AC+[0] 
[W1]&[AC-0P]_F, 

IF NOT CT [IZ] THEN [ADJBP6] 
[MEM-0P]+[AC-OP RH] B, 
GOTOP [AC TO AC] 
ADJBP6: CALL [READ NEXT] 

[MB]+[MEM-OP]_B,SEL AC+[l] 
[K 7777.-1]&[MEM-OP]_B 
[K 7777--l]BARt[MB]_B 
[MEM-OP]. OR. [MB] _Y, 
ALU_RAMF I LE , SEL~AC+[0] 
[AC-OP]_RAMFILE,SET LOCAL. 
GOTOP [I FETCH] 



Copy # of bytes to adjust 
In case was really IBP 
Check tor S«0 

Set high order word 

Copy P 

If S-0 done 



tes in word here 



Count bytes in word 

Copy # of bytes to adjust 

[SET NO DIVIDE] 

Copy divisor 

Get quotient in MEM-OP 

Test remainder 



Justify pointer in AC-OP 



Get 2nd half of pointer 



ADJBP9: SEL AC+[1]. 

IF NOT CT [UZ] D [DISPATCH i-:] 
[MEM-0P+1]_RAMFILE, 
DISPATCH [DISPATCH i4] 



;Dispatch if not global 



:Here for IBP or ADJBP 
ADJBP: IF [AC.EQ.O] THEN [IBPO] 
;GOTO [P6S SETUP] 



.TOC 



Byte Instructions" 



I P I S !X1I! AC! Y ! 

+ _+ +-+-+ + + 

111111 3 

56 123^78 5 

Common setup routine for byte instructions 

Returns W5/P W6/S Q/S UZ set if global format 



.IF/FTBYTE 
P6S SETUP: 

2*[MEM-OP]_[W5], 
JCI] CTR 
P6S 2: 1»*[W5]_B. 

LOOP [P£S 2] 
2*[W5]_Q 
P&S 3: ROL [MEM-OP] [W5] ROL Q_Q, 

J [if] CTR 
P6S k: ROL [W5]_[W5] ROL Q_Q, 
LOOP [P6S i»] 
[K 77]6[W5]_B 
Q6[K 77]_F,F_Q_[W6], 

IF [SECTION 0] THEN [P&S 5] 
[BIT12]6[MEM-0P] Y, 

IF CT [IZ] THEN~[P6S 5] 
[E]+1_F,F_Q_[E RH],1_UZ, 
IF [LOCAL] THEN [P6S 6] 
Q_[E],GOTO [P6S 6] 
;Here if EFA calc is from first word 
P6S 5: [MEM-OP]_Y,SPEC SEL/XR, 

0_UZ,J[EFA CALC]_CTR 
;Here to do EFA calc for byte pointer 
P6S 6: IF CT [UZ] JSR? [FETCH IW] 

:f [not pxct] then [pes 6i»] 

J[0100]_[PXCT RH] 

v,*LL [PXCT FETCH] 

GOTO [P6S 66] 
P&S 6it: READ [E] 
PfiS 66: J [BYTE MASK] [Wl] 

[W1]+[W6]_Y,Y_RAMFILE ADR 
P6S 7: [K -1]+[W5]_Y,ALU_CTR.IX_MX 

RAMFILE_[W2J,SEL AC+[0] 
DISPATCH [DISPATCH i«] 



;Copy pointer to W5 

;Shift left 2 at a time 

;Leave S left justified in Q 

; Rotate pointer in W5. also rot Q 

; Rotate pointer in W5. also rot Q 

;Mask P to 6 bits 
;Mask S to 6 bits 

;Check for local/global format 

;Make adr of 2nd half 

; Propagate carry 

;Set AC and g flags 

; Load 2910 reg for subroutine call 

;Do EFA calc 



;Get word to wr i te 
;Base of mask for byte size 
: Address mask for byte 
; Check P for 6 load ctr 
;Get mask 



;Setup routine for ILDB, IDPB, and IBP 
; Returns W5/P W6/S Q/S 



i nstructions 
UZ set if global format 



IBPO: 



IP6S 2! 



|P£S SETUP: 

tBm]6[PC FLAGS]_Y, 

IF NOT CT [IZ] THEN [PSS SETUP] 
2*[MEM-0P]_[W5], 

J[1]_CTR 
lf*[W5]_B,L00P [IP6S 2] 
CW5]+[W5]_Q 

[K 7777.-l]BAR6Q_F,F_Q_[W6] 
[MEM-OP] -qIf , F_ [HEM-OP] , 

IF CT [IC] THEN [IP£S 3] 
JS[1»]_[W1] 
[K 7777.-l]6CMEM-0P] B, 

PUSH J [2] CTR 
ROR [W1]_[W1],RFCT 
[W 1]. OR. [MEM-OP] _B 
[MEM-OP] -Q_F , F_ [MEM-OP] , 

IF [SECTION 0] THEN [IP6S27] 
[B I T12]6 [MEM-OP] Y, 

IF CT [12] THEN~[IP6S27] 
[E] + 1_F.F_Q_[E RH], 

IF [LOCAL] THEN [lP6S2if] 
Q_[E] 
READ [E] 

[K 7777.-l]BAR&[MB]_Q 
[MB]+1_[MB] 
[K 7777.-l]&CHB]_B 
Q.OR.[MB]_[MB], 

CALL [MEMORY WRITE] 
; [MB]+1_[MB] . 
; CALL [MEMORY WRITE] 
[K -1]+[E RH] F.F Q_[E 

IF [LOCAL] THEN IlPSS 
Q_[E],GOTO [IP6S 3J 
[MEM-0P]+1_[MEM-0P RH] 
[MEM-0P]_[MB], 

CALL [MEMORY WRITE] 
[W6]_Q. 

DISPATCH [DISPATCH 3] 
[BITi»].OR.[PC FLAGS] B, 

GOTO [P6S 3] 



IP&S2i«: 



RH], 
3] 



IP6S27: 
IP6S 3: 



IPSS 5: 



; Check first part done 

;Copy pointer to W5 

;Shift left 2 at a time 
;Put S left justified in Q 
; Leave only S in Q 
; Increment pointer 

;Put 400000,, i+ 
;C1ear old P 

; Leave l»'+0000, ,0 in Wl 
;Put 36. in P 
;Make pointer 



;Propagate carry 

;Fetch 2nd half of pointer 

:Save non Y portion 

; Increment Y 

; Strip non Y portion 

;Add non Y portion 

; Increment 2nd half of pointer 

;Make adr of 1st half of pointer 

;Propagate carry 

; Increment adr 

;Write updated pointer in memory 

;Load Q with S left Justified 
; I BP is done, otherwise continue 
;Set first part done 
; Rest 1 ike P&S setup 



;Here for LDB or ILDB after P6S SETUP, 
LDB: IF CT [MN] THEN [LDB5] 

J[18.]_[W1] 
[W5]-[W1]_Y. 

IF CT [IN IX_MX] THEN [LDBA] 
SWAP [MB]_[«B] 
ZER0_CMB LH], 

IF CT [«Z] THEN [LDB5] 
[W5]-[W1]-1_F,F Y.ALU_CTR 
LDBi»: LRS [MB] _ [MB] , LOOP [LDBi*] 
LDB5: [MB]6[W2]_Y,ALU_RAMFILE, 
GOTOP [TO NOWHERE CFPD] 



memory word 
;Branch if 
;Half word 



in MB 

P-0 

shift 



;Do first 18 shifts 
;C1ear half 

;Load ctr with excess l8. 

;Mask to byte size 



DPB 



;Here for DPB or I DPB after P6S SETUP, memory word in MB 

;Clear extra bits from byte 
; Branch if P«0 
;Ha1f word shift 



[W2]6[AC-OP3_B, 

IF CT [MN] THEN [DPB5] 
J[l8.]_[W1] 
CW5]-[W1]_Y, 

IF CT [IN IX_MX] THEN [DPB3] 
SWAP [AC-OP] [AC-OP] 
ZERO_[AC-OP RH], 

CALL [SWAP W2 W2] 
ZER0_[W2 RH], 

IF CT [MZ] THEN [DPb^. 
[W5] - [Wl] - 1_F , F_Y , ALU_CTR 
[W2]_Q 
LLS [AC-OP]_[AC-OP] LLS Q_Q, 

LOOP [DPB1»] 
Q_[W2] 
[W2]BAR6[MB]_B, 

IF [NOT PXCT] THEN [DPB6] 
[AC-OP]. OR. [MB] B, 

CALL [PXCT STORE] 
GOTO [TO NOWHERE CFPD] 
[AC-OP]. OR. [MB]_B, 

CALL [MEMORY WRITE] 
;GOT0 [TO NOWHERE CFPD] 
.ENDIF/FTBYTE 

;Here when instruction done, clear f i 
TO NOWHERE CFPD: 

[BITi»]BAR6[PC FLAGS]_B, 

SET LOCAL, GOTOP [I FETCH] 



DPB3 
DPBi> 



DPB5: 



DPB6: 



;Do first 18 shifts 
; CI ear half 
;Shift mask also 
;C1ear hal f of mask 

; Load ctr with excess l8. 
;Put mask in Q reg 



;Get mask back from Q 

; Clear old bits from mem word 

; Set new bi ts 
; Write word back 

;Set new bi ts 

;Write word in memory 



rst part done 

;Clear 1st part done and exit 



.TOC 



Floating Point" 



; Format for floating point numbers is 

:0123'»5678 9101 1121;. 415l6l7l8l9202l22232if2526272829303132333A35 



! \ / \ 

: ! ! 

; ! + exponent (excess 200) 

; + sign 



/ 



+ fraction 



;Here for FIX instruction 

FIX: 

.IF/FTFP 

2*[ME«-OP]_[MEM-0P], 

IF NOT CT [MN] THEN [FIX 1] 
NEGATE [MEM-OP]_F,F_[MEM-OP] 
FIX 1: ROL [MEM-OP] [MEM-OP], 
PUSH J[6]_CTR 
ROL [MEM-OP]_[MEM-OP] , 
RFCT, REP/1 
[K 777]6[MEM-0P]_Q, 
SET LOCAL 

[K 777] BARS [MEM-OP]_B 
JC2'»2]_[W2] 

[W2]-qIf,f_y,alu_ctr, IX_UX 

IF CT [UN] THEN [SET OVITI TRAP] 
[K -1]6[MEM-0P]_F, ;Position result 

LSRC_B.0_SI0N SIOO_QI0N, 
IF CT [UZ] THEN [FIX 6] 
FIX 5: [K -1]6[MEM-0P]_F, REP/1. ;Position result 
LSRC_B,0 SI ON SIOO_QI0N, 
LOOP [FIX 5] 
FIX 6: [MEM-OP] _RAMF I LE, 

IF NOT CT [MN] D [OPERAND STORE] 
NEGATE [MEM-OP] _F,F_[MEM-OP], 
ALU_RAMFILE, 

DISPATCH [OPERAND STORE] 
•ENDIF/FTFP 

;Here for F I XR ■ fix and round 

FIXR: 

.IF/FTFP 

Q_Y. 

IF NOT CT [IN] THENP [I FETCH] 
[MEM-0P]+1_Y,ALU_RAMFILE, 

IF NOT CT [MN] THENP [I FETCH] 
[K -1]+[MEM-0P] Y,ALU_RAMFILE, 

GOTOP [I FETCH] 
GOTO [TO AC] 
.ENDIF/FTFP 



;Work with positive copy 
;Copy operand to extract exponent 

;Rotate exponent to rh of Wl 

;Get the exponent 

;Strip exponent from number 



;Here for FLTR « float and round 
fLTR: :DISPATCH [OPERAND STORE] 



;Here for FADx 

FADX: :DISPATCH [OPERAND STORE] 

;Here for FADRx 

FADRX: ;DISPATCH [OPERAND STORE] 

;Here for FSBx 

FSBX: ;DISPATCH [OPERAND STORE] 

;Here for FSBRx 

FSBRX: ;DISPATCH [OPERAND STORE] 

;Here for FMPx 

FMPX: ;DISPATCH [OPERAND STORE] 

;Here for FMPRx 

FMPRX: ;DISPATCH [OPERAND STORE] 

;Here for FDVx 

FDVX: ;DISPATCH [OPERAND STORE] 

;Here for FDVRx 

FDVRX: DISPATCH [OPERAND STORE] 



.TOC " Full Word Data Transmission" 

^Here for MOVE I 
I IF/FAST 
MOVE!: [K -1 .03BAR£[E]_F, F_Y, ; Strip extra bits 

ALU_RAMFILE,SET LOCAL, 

GOTOP [I FETCH] 

;Here for MOVSI 

MOVSI: SWAP [E]_[E],SEL AC+[0] ;Position bits 
[K -1.0]&[E] Y,ALU_RAMF1LE. 
SET LOCAL, GOTO [I FETCH] 
•ENDIF/FAST 

;Here for MOVSx (also some Hxx instructions) 
MOVSX: SWAP [MEM-OP]_[MEM-OP] , 

DISPATCH [OPERAND STORE] 

;Here for MOVMx 

MOVMX: IF NOT CT [MN] D [OPERAND STORE] 
;GOTO [MOVNX] 

;Here for MOVNx 

MOVNX: NEGATE [MEM-OP]_F,F [MEM-OP], ;Negate operand 
IF CT [IZ IX_MX] THEN [SET CO! CI STORE] 
IF NOT CT [MOVR] D [OPERAND STORE] 
SET 0V!C1!T1 STORE: 

J[5002] [W1],SET TRAP ;Set overflow, carry 1, and trap 1 

SWAP [wT] [W1], 

CALL [6ii*Wl!PCF] 
SEL AC+[0], 
DISPATCH [OPERAND STORE] 



.TOC " Fixed Point" 

;Here for ADDx 

ADDX: [AC-OP]+[MEM-OP]_B, ; Add AC 6 MEM 

IF CT [lOVR IX_MXJ THEN [ADDXOV] 
ADDX2: IF CT [NOT MC] D [OPERAND STORE] :No carry means done 
SET CO! CI STORE: 

[C0!C1],0R.[PC FLAGS]_B, 

SEL AC+[0], 

DISPATCH [OPERAND STORE] 

;Here for SUBx 

SUBX: [AC-OP] -[MEM-OP]_B, ;AC-MEM_MEM and then store 

IF CT [NOT lOVR I X_MX] THEN [ADDX2] 

;Here if got overflow 

ADDXOV: IF CT [NOT MC] THEN [SET DVICIITI STORE] 

SET 0V!C0!T1 STORE: 

J[6002]_[W1],SET TRAP ;Set overflow, carry 0, and trap 1 

SWAP [W1]_[W1], 

CALL [64*W1!PCF] 
SEL AC+[0], 
DISPATCH [OPERAND STORE] 



5 Here for MULx or IMULx 
^ Memory operand already in Q 
ilF 'FAST 
MULX: ZERO_[MEH-OP].J[33.]_CTR 

TCM [AC-OP] [MEM-OP] 
MULX 2: TCM [AC-OP] [MEM-OP] , REP/1 , 

LOOP [MULX 2] 
.ENDIF/FAST 
.IFNOT/FAST 

MULX: ZERO_ [MEM-OP], J [3't.]_CTR 
MULX 2: TCM [AC-OP] [MEM-CP] , 

LOOP [MULX 2] 
.ENDIF/FAST 

TCM COR [AC-OP] [MEM-OP] 
[MEM-OP]_F,B SEL/MEM-OP,ALSC_B, 
SION MC QION_SIQO 0_QIOO,IX_MX 
Q_F , (MN F) RS_[MEM-0P+1] . 

IF CT [MN] D [OPERAND STORE] 
IF NOT CT [MC] D [OPERAND STORE] 
B I T0_ [MEM-OP], 

CALL [SET 0V!T1] 
BITO [MEM-OP+1], 
DISPATCH lOPERAND STORE] 



; Ini tial ize work register 
;Do shift and add 
;Do shift and add 



;lnitia1ize work register 
;Do shift and add 



;F inal shi f t and add 
;Shift product left 
; put carry out in MC 
;Get low order portion 



;Archi tecture sayes to do this 
;Set overflow 6 trap 1 
;More architecture cyberkrud 



In case high order portion neg 



;Here for IMULx after doing MULx 
IMULX: [MEM-OP]+1_[MEM-OP], 

IF CT [MZ IX_MX] THEN [IMULXi*] 
IF NOT CT [MZ] CALL [SET OV!Tl] ;Set overflow if high order bits 
MULXl*: [MEM-OP+1] [MEM-OP], 

DISPATCH IdISPATCH i»] 



» 



;Here for IDIVx 

IDIVX: [AC-OP] [AC-OP+1], ;Put argument in right place 

IF CT Tin] then [idivxn] 

ZER0_CAC-0P].G0T0 CDIVXO] ;Extend sign 
IDIVXN: ONES^EAC-OPl.GOTO [DIVXO] ; Extend sign 

;Here for DIVx 

DIVX: SEL AC-«-[l] ;Address low order portion 

RA«FILE_[AC-0P+1],NRFRD/1 
DIVXO: [HEH-0P]_[W3],IX MX, :Copy divisor 

CALL [DIVSUB] 

DISPATCH [OPERAND STORE] 

; Subroutine to do a divide 

; Call with dividend in AC-OP, AC-OP+1 divisor in MEM-0P_W3 , I X_MX 
DIVSUB: [AC-0P]_[W2] , ;Copy highorder dividend 

IF NOT CT im IX_MX] THEN [DIVX02] 
NEGATE [W3]_F,F_[W3] ;Make magnitude of divisor 

DIVX02: [AC-0P+1]+[AC-0P+1]_F,F_Q. ;P'Jt loworder dividend in Q 

IF NOT CT [«N] THEN [DIVX04] 
;Following 2 ins for KLIO compatible divide 

NEGATE (i_F,IX_UX ;Latch carry out of loworder 

[W2,dAR+C_F,UC_C,F_[W2] 
;Fol lowing for non KLIO compatible 

; [W2]BAR+C_F,0_C0,F_[W2] 
DIVXOi*: [W2]-[W3]_F, 

IF NOT CT [IN] THEN [SET NO DIVIDE] 
[AC-OP]_F,ASRC_B,B SEL/AC-OP, 
NN_SION SiOO_QION 
.IF/FAST 

R SEL/MEM-OP.S SEL[AC-OP], 
0_CO,ALU SP FUN/DLN,ALU_Y/YES, 
SION QlOO QION SIOO,J[33.]_CTR 
TCD I V~ [MEM-OP] [AC-OP] _B 
DIVX15: TCDIV [MEM-OP] [AC-OP] B, REP/1, 

LOOP [DIVX 15] 
•FNDIF/FAST 
•IFNOT/FAST 

R SEL/MEM-OP.S SEL[AC-OP], 
0_CO,ALU SP FUN/DLN.ALU_Y/YES, 
SION_QIOO QI0N_SI00,J[3^.]_CTR 
DIVX 15: TCDIV [MEM-OP] [AC-OP] B, 
LOOP [DIVX 15] 
rHDIF/cAST 

TO IV COR [MEM-OP] [AC-OP]_B 

[AC-0P]_[MEM-OP-H], ; Latch remainder sign 

IF CT [MN IX_UX] THEN [DIVXi»0] ; Branch if dividend negative 
[MEM-OP] _Y, ; Latch sign of divisor 

IF NOT CT [UN IX_MX] THEN [DIVX90] ; Positive remainder « OK 
IF CT [MN] THEN [DIVXR] 
OIVXQ: [MEM-OP]+[MEM-OP+1]_B ;Add divisor to remainder 

DIVXQ1: (H-[K -1] [MEM-OP], ~ :Adjust quotient and store 

RETURN ~ 

;Here because dividend was negative 

DIVXliO: [MEM-OP]_Y, ;L3tch sign of divisor 

IF CT [UZ IX_MX] THEN [DIVXSO] :Refflainder-0 OK 

[MEM-0P+1]+[W3]_Y, ;Refflainder vs divisor magnitude 



0IVXii2: 
DIVXR: 



TklVXli6: 



if ct [un ix ux] then [d)vxl»6] 
if ct [hn] then [divxq] 
[mem-op+1] - [mem-op] _a 
q4-1 f.f [mem-op], 

return" 

if not ct [uz] then [divx90] 
if ct [mn] then [divxr] 
[mem-0p]+[mem-0p+1] b. 

GOTO [DIVXQl] 



:R*negative. check quotient 
; Branch if divisor was negative 
;Subtract divisor from remainder 
;AdJust quotient and store 



; Branch if divisor was negative 



DIVX90: Q_ [MEM-OP], 
RETURN 



;Save quotient 



SET NO DIVIDE: 

J[1»0] [W1] 

SWAP [W1]_[W1], 
CALL [WHPCF] 
SET OVITl TRAP: 

CALL [SET OVITl], SET lOCAL 

GOTOP [TRAP] 



:Wi 11 become no divide 



;Set overflow and trapl 



• TOC 



Double Precision Fixed Point' 



:Here for DADD 

DADD: 2*[AC-0P+1] [AC-OP+l], 
CALL [DADOii] 
[AC-OP+1]+[MEH-OP+1]_B, 

IX nx 

[AC-OP] + [MEM-OP] +C_B, 

«C_C IX_MX 
DADD2: ASR~[MEM-0P+1]_[MEM-0P+1] , 

IF CT [MOVR] THEN [ADDXOV] 
IF CT [NOT MC] D [OPERAND STORE] :No carry means done 
[CGI CI]. OR. [PC FLAGS]_B, 

DISPATCH [OPERAND STORE] 



;Adjust low order AC operand 

; and adjust low order mem operand 

;Add low order parts 

:Add AC & MEM 

;Put sign on low order portion 



DADDU: 2*[MEM-0P+1]_[MEM-0P--1] , 
RETURN 



; Adjust low order mem operand 



:Here 
DSUB: 


for DSUB 

2*[AC-0P+1] [AC-OP+1], 

CALL [DADDit] 
[AC-0P^-1]-[MEM-0P+1]_B, 

IX MX 
[AC-OP]- [MEM-OP] -1+C F,F B. 

MC C IX MX. 

GOTO [DADD2] 


:Here 
DMUL: 


for DMUL 

:DISPATCH [OPERAND STORE] 


:Here 
ODIV: 


for ODIV 

DISPATCH [OPERAND STORE] 



;AdJust low order AC operand 

; and adjust low order mem operand 

;Subtract low order parts 

; AC-MEM MEM and then store 
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Shift and Rotate" 



ASHC SETUP: 

[«EH-OP]_f, IX_«X 
2* [MEM-OP^ 1] Q, 
GOTO [ASn SETUP] 

LSHC SETUP: 

[NEn-OP+l]_Q, 

GOTO [ASH SETUP] 



: Latch m 

;Loacl Q with low order portion 



;Load Q with low order portion 



;Here for ASH, stc. setup 
ASH SETUP: 

J[377]_[W1] .SET LOCAL :Generate mask for extraneous bits 

[W1]&[E]_B, IX_UX, ; Strip extraneous bits 

IF [B BIT 18] THEN [ASHR SETUP] 
[K -1]+[E]_B,ALU_CTR ;Load counter 

SEL AC+[0], 

IF NOT CT [UZ] D [DISPATCH 3] 
SET LOCAL, GOTOP [I FETCH] 
ASHR SETUP: 

[W1]-[E] B,ALU_CTR ;Load counter 

SEL AC+[0], 
DISPATCH [DISPATCH li] 

:Here for ASH 

ASH: [MEM-OP]+ [MEM-OP] B. -.Shift left 

IXIU0VR_UX,L0OP [ASH] ; Latch overflow if any 

[MEM-OP]_RAMFILE,SET LOCAL. ;Write AC 

IF NOT CT [UOVR] THENP [I FETCH] 
[MEM-OP] + [MEM-OP] B, ;Shift off sign 

CALL [SET OVITl] 

b[mem-op]_f,mn_sion si 00 qion, 
lrs f b,alu ramfile, 
gotop~[trapI 



ASHR: ASR [MEM-OP] [MEM-OP], 


:Shi 


ift 


right 


LOOP [ASHR]" 








[MEM-OP] RAMFILE. 


:Wri 


ite 


AC 


SET LOCAL, 








GOTOP [1 FETCH] 








;Here for ASHC 








ASHC: ASRC [MEM-OP] [MEM-OP] 


;Shi 


ift 


right 


ASCHl: R SEL/MEM-OP,S SEL [MEM-OP], 


;Shi 


ift 


left 



IXIUOVR_UX. 

0_CO,ALU SP FUN/DLN,ALU Y/YES, 

QION_SIOO QIOO.LOOP [ASCHl] 

LLSC [MEM-OpI_ [MEM-OP] 

LLSC [MEM-OP]" [MEM-OP] 

MN SIGN SIOO QION,LSRC B. 
bImEM-OP] fTaLU RAMFILE 

SEL AC+[1]" 

(i_F,LRS F_B,MN_SI0N SIOO QION, 
B SEL/MEM-OP+:,ALU RAMfTlE, 
IF MOT CT [UOVR] THEN [I FETCH] 

GOTOP [SET 0V!T1 TRAP] 



:Shi 


ft 


left 










:Shi 


ft 


left 










:Shi 


ft 


right 


addi 


ing 


si 


gn 


: Save 


AC 










; Address AC+I 











;H<^re for an ASH shifting right 



ASHCR: ASRC [HEM-OP]_[ME«-OP] , ; Shi ft right 
LOOP [ASHCR] 
[MEM-OP] Y.ALU RAMFILE, 
SEL AC+Ilj 
Q_F,LRS fJB,m SI ON SIOC QION, 
B SEL/HEM-OP+T, 
ALU RAMFILE. 
GOTOP [I FETCH] 



:Here for LSH 

LSH: 2* [MEM-OP] [MEM-OP], 

LOOP [LSH] 
[MEM-OP] RAMFILE, 
SET LOCAL, 
GOTOP [I FETCH] 

LSHR: LRS [MEM-OP]_[MEM-OP] , 
LOOP [LSHR] 
[MEM-OP] RAMFILE, 
SET LOCAL, 
GOTOP [I FETCH] 



;Write AC 

;Shift right 
;Wri te AC 



;Here for LSHC 

LSHC: LLSC [MEM-OP]_[MEM-OP] , 
LOOP [LSHC] 
Q_[MEM-0P+1]. 
GOTO [D TO ACQ] 
LSHCR: LSRC ZMEM-OP]_[MEM-OP] , 
LOOP [LSHCR] 
Q_[MEM-0P+1], 
GOTO [D TO AC.O] 



;Shif t left wi th Q 



;Shif t right with Q 



;Here for ROT 

ROT: ROL [MEM-OP]_[MEM-OP] , 

LOOP [ROT] 
[MEM-OP] _RAMF I LE, 

SET LOCAL, 

GOTOP [I FETCH] 
WTR: ROR [MEM-OP] [MEM-OP], 

LOOP [ROTR]~ 
[MEM-OP] _RAMF I LE, 

SET LOCAL. 

GOTOP [I FETCH] 

:Here for ROTC 

ROTC: ROLC [MEM-OP] [MEM-OP], 
LOOP [ROTC] 
Q_[MEM-0P+1], 
GOTO [D TO AC.O] 
ROTCR: RORC [MEM-0P]_[MEM-OP] , 
LOOP [ROTCR] 
Q_[MEM-0P+1], 
GOTO [0 TO AC.O] 



:Wrlte AC 



;Write AC 



;Rotate left 



:Rotate right 



Register usage: 

MEH-OP AC contents 
AC-OP BLT limit 
Here for BLT 
BLT: CK 7777.-1]&[E]_B 

[E]_[AC-OP], 
IF [PXCT] THEN [BLT PXCT] 
.IF/FAST 

SWAP [HE«-OP]_[E RH] 
CE]_[W1] 

CMEM-0P]_[W1 RH] 
[W1]-[E]-1_F,F_Y, 
IF CT [IZ] THEN [BLT+1] 
.ENDIF/FAST 

BLT 2: SWAP [MEM-0P]_CE RH] , 
CALL [MEM READ 0] 
CMEM-0P]_[E RH], 

CALL [MEMORY WRITE] 
[E]-[AC-OP]_Y,SEL AC+[0],IX_MX 
[BIT17]+[MEM-0P]+1 F.F B. 



;Mask E to 30 bits 
;Copy final adr 



;Make first address to read 
;Copy section number 
;Make destination adr 
;Check for "clear core 



case 



;Make adr of location to read 
;Get word to transfer 
;Make destination adr 



IF NOT CT [MN] THEN [TO NOWHERE] 



; Increment pointer 



[MEM-OP]_Y,ALU_RAMFILE. 
GOTO [BLT 2] 



; Remember how far we got 



BLT PXCT: 

SWAP [MEM-OP] [E RH], 

CALL [PXCT FETCH i»0] 
[MEM-OP]_[E RH], 

CALL [PXCT STORE 200] 
[E]-[AC-0P]_Y,SEL AC+[0].IX MX 
[BIT17] + [MEM-0P]+1_F,F B, 



;Make adr of loc to read 

;Make destination adr 
; Copy data 



IF NOT CT [MN] THEN [TO NOWHERE] 



; I ncrement pointer 



[MEM-OP]_Y , ALU_RAMF I LE , 
GOTO [BLT 2] 



; Remember how far we got 



.IF/FAST 

;Here for BLT [#,#+1] 

8LT+1: READ [E] 

[ME«-OP]_[E RH], 

CALL [MEMORY WRITE] 
GOTO [BLT U] 
BLT+IN: [BIT17]+[MEM-0P]+1_F,F_B, 
ALU_RAMFILE, 
CHECK INTERRUPTS 
[E]+l_F.F_(l_[E]. 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEM WRITE 1] 
BLT lis: [AC-0P]-[E]-1 F,F Y, 
SEL AC+[0], 

IF NOT CT [IN] D [DISPATCH 3] 
SET LOCAL, GOTO [I FETCH] 
•ENDIF/FAST 



; Fetch first word 
;Write next word 



in block 



•TOC " Program Control" 

jHere for AOBJX instructions 

jioBJX: [MFh-0P]+1_LMEM-0P RH] ; Increment RH of AC 

tBiri7]+[MEM-0P] B,IX_«X, ; Increment LH 

DISPATCH [DISPATCH 3] 



;Here for JRST 
JRST: 2*[IR]_[W1], 

IF [AC.EQ.O] THEN [JXA] 
'♦*[W1]_B, 
CALL C2*W1_W1 LOAD IR] 
[K 7777.-l]6[PC]_B. 
SECTION SELECT, 
DISPATCH [MISC] 



;Keep shifting 

; Reduce PC to 30 bits 
;Load SECTION from PC 



;Jump and restore flags from bits 0-12 of the final indirect or index word 
; JRST 2, 
JRSTF: 
. IF/SILLY 

[IR]_[MB], ;Reseed MB 

CALL [EFA CALC] 
.ENDIF/SILLY 

IF [NOT SECTION 0] THEN [MUUO] 
[E]_[PC RH] ;New PC 

JRSTFX: LRS [BITi»]_[Wl] , ;Make a 

IF [EXEC]~THEN [MB_PC FLAGS] 
[W1].0R.CMB]_B ;Will 

LRS [Wl] [W23 ;Make 

[PC FLAGS]BAR6[W2] B :Make 

[W2]BAR&[MB]_B 
MB_PC FLAGS: 

[MB]+[MB]_Q, 

J[23B «ASK]_RAMFILE ADR 
Q6[BITi»]_Y,IX_MX,SET EXEC. 

IF [TOPSIO] CALL [ZER0_PC LH] 
[MB]_Q RAMF I LE_[W2] , 

IF NOT CT [MZD CALL [SET USER LATCH] 
[W2]BAR6Q_F,F_[PC FLAGS] ;Set new flags 

SET LOCAL, 
GOTOP [TRAP] 



user mode bi t 

still be user mode 
a user I/O bit 
mask for user I/O 
; Prohibit new user I/O 

;Make user into bitU 

; Latch new exec as MZ 
;Si2e PC for TOPSIO 
;Get mask for allowable 



flags to set 



SET USER LATCH: 

SET USER, RETURN 



;JRST k, 

HALT: IF [USER] CALL [CHECK 

J [HALT INS]_[W1] 

[E]_[PC]. 
GOTOP [SET HALT CODE] 



OK] ; Check if this is 
;Code fcr JRST i», 
;Set new PC from E 



legal 



;Here for 
XJRSTF: 



a JRST 5. 



READ [E] 
[MB]_[nEH-OP]. 

CALL [READ NEXT] 
[«B]_[PC], 

IF [TOPSIO] CALL [ZERO PC LH] 
[MEM-OP] [MB], 

GOTOP [JRSTFX] 



;Get new flag word 
;Save flag word 
; Get new PC 
;Set new PC 



ZERO_PC LH: 

IF [NOT PAGED] RETURN 
ZERO_[PC LH],PETURN 



;lf not paged don't do 
:Be sure only 18 bits 



;JRST 6, 

XJEN: READ [E] 

[MB]_ [MEM-OP], 
CALL [READ NEXT] 
|jNO: CALL [DISMISS INT] 

[MB]_[PC]. 

IF [TOPSIO] CALL [ZERO_PC LH] 
[MEM-OP] _ [MB], 

GOTO [mI PC FLAGS] 



Get new flag word 
Save flag word 

Get new PC 
Dismiss interrupt 

If not legal do an 
Set new PC 



MUUO 



;JRST 
XPCW: 



7. 



IF [USER] CALL [CHECK 10 OK] 
[PC FLAGS]_[MB], 

CALL [MEMORY WRITE] 
[PC]_[MB] . 

CALL [WRITE NEXT] 
CALL [READ NEXT] 
[MB]_[MEM-OP], 

CALL [READ NEXT] 
[MB]_[PC] , 

IF [TOPSIO] CALL [ZERO_PC LH] 
[MEM-OP]_[MB], 

GOTO [MB_PC FLAGS] 



;Be sure legal 
;Save flags 



;Get new flags 
;Save new flags 
; Get new PC 
;Set new PC 



;JRST 10, 
JRST 10: 

CALL [DISMISS INT] 
[E]_[PC], 
SET LOCAL, 
GOTOP [I FETCH] 



;JRST 
JEN: 



12. 



[MB3_[HEM-0P] , 

IF Inot section 

[E]_[MB] . 
GOTOP [XJNO] 



0] THEN [MUUO] 



;Save new flags 

;Not legal in section 

;Save new PC 



Here to dismiss an interrupt 
If 10 not legal will do an MUUO 

uses Q. W1. W2. updates RF(PI IN PROG) and PI REG 
DISMISS INT: 

J [PI IN PROG]_RAMF I LE ADR 

JClOO]_[W23 

[W2]_Q RAMFILE_[W2].IX_MX, 

IF luSER] CALL [CHECK 10 OK] 
IF CT [HZ] RETURN 
JEN2: Q&[W2]_F,F Y R0R(1_Q, 

IF CT [IZ] THEN [JEN2] 
Q_F,ROL F_B,B SEL/Wl 
[W1]BAR6[W2]_B,ALU_RAMFILE, 
IF NOT CT [IZ] THEN [JEN3] 
ZERO_[PI REG],Y_291'» STATUS, 
RETURN 



;Address of Pi's in progress 

;Mask for highest PI 

;Put mask in Q, Pi's in W2 

;Be sure 10 is legal 

;Check if any Pi's in progress 



;Make mask for level 
;One less PI in progress 



JEN3: Q6[W2] F,F_Y RORQ_Q.IX_MX 
[K -1]+[PI REG]_B, 
Y_29U STATUS, 
IF CT [MZ] THEN [JEN3] 
RETURN 



SFM: IF [NOT SECTION 0] THEN [SFM 2] ; Legal in nonzero sections 

IF [USER] CALL [CHECK 10 OK] ;0r if 10 is legal 

SFM 2: [PC FLAGS]_[MEM-OP], ;Copy flags and then write them 

GOTO [TO MEM] 



;Here for JFFO 
JFFO: ZERO [Wl] , 

IF CT [HZ] THEN [JFFO X] 
[E]_[PC]. 
IF CT [MN] THEN [JFFO X] 
JFFO 1: [MEM-OP]+ [MEM-OP] B,IX_MX 
[W1]+1_[W1]. 
IF NOT CT [«N] THEN [JFFO 
JFFO X: SEL AC+[1] 

[Wl] RAMFILE, 
GOTOP [I FETCH] 



1] 



; Count leading zeros here 

;Take branch 

;Left shift word 

; Count leading zeros 

;Address AC+1 
;C1ear AC+1 



;Here for JFCL 

JFCL: J[JFCL MASK] RAMFILE ADR 
2*[IR]_[W1]," 
JC3]_CTR 
JFCLi*: it*CW1]_B,L00P [JFCLi»] 
RAMF I LE_[W2] , 
CALL [W2BAR&W1 B] 
[W1]6[PC FLAGS]~Y, 
SET LOCAL, 

IF CT [IZ] THENP [ I FETCH] 
[W1]BAR6[PC FLAGS]_B, 
GOTO [JXA] 



;Point to 037777 777777 

; Copy IR and shift left once 

;Shift copy of IR 
;Get mask for JFCL test bits 
; Leave only bits to test 
;Test flag bits 



; CI ear flags 



;Here for XCT 

^ MEM-OP contains instruction to execute 
PCT: [K -1.0]&[IR]_Q, ;ln case this is PXCT 

IF [USER] THEN [I FETCH i»] 
Q_[PXCT], ;ln case this is PXCT 

IF [AC.EQ.O] THEN [IFETCH i»] ;lf plain just do it 
[rtEM-OP]_ClR],SET PXCT. LOAD IR, ;Set flag this is PXCT 
GOTOP [IFETCH PXCT] 

PXCT STORE 1*0: 

J[00'«0]_[PXCT RH] 
GOTO [PXCT STORE] 

;Here for usual case of writing operands to memory 
PXCT STORE 200: 

J[0200]_[PXCT RH] ;Flavour of store 

;GOT0 [PXCT STORE] 
;Here when doing memory write under PXCT 
; Call J[testbit] [PXCT RH] 
PXCT STORE: 

CALL [SET PXCT CTXT] 

[K 7777.-l]6[E]_F,F Q_B, ;Get 1st operand 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEMORY WRITE] 

GOTO [SET CURRENT CTXT] 

PXCT FETCH i»0: 

J [0040] [PXCT RH] 
GOTO [PXCT FETCH] 

;Here for usual PXCT FETCH (i.e. 200) 
PXCT FETCH 200: 

J[0200]_[PXCT RH] ;Flavour of fetch 

;GOTO [PXCT FETCH] 
:Here when doing a memory read under PXCT 
; Call J[testbit] [PXCT RH] 
PXCT FETCH: 

CALL [SET PXCT CTXT] 

[K 7777.-l]&[E] F.F Q_B, ;Get 1st operand 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEMORY READ] 

;GOTO [SET CURRENT CTXT] 

;Here to set current context 
SET CURRENT CTXT: 

J[PROC REG]_RAMFILE ADR ;Get what AC blocks should be 

RAMFILE_[W2 LH],NRFRD/1, 
CLEAR USER 

J[RF PROC REG]_RAMFILE ADR ;Get current proc reg 

r<AMFILE_[W2 RH],NRFRD/1 

[W2]_Y,ALU PROC REG ;Set proper processor reg 

[W2] RAMFILE, 
RETURN 

SET PXCT CTXT; 

SWAP [PXCT]_[W1] ;Copy test bits 

[W1]&[PXCT]_Y, 
IF CT [IZ] RETURN 



;G0TO [SET PREV CTXT] 

;Here to sst previous context 

: Called only in exec mode tl 

J[1»000]_[W1] ;bit 2k 

SWAP [W1] [Wl] ;Becomes bit 6-prev context user 

[W1]&[PC ?LAGS]_Y.IX_NX :See if he can do this 

J[RF PROC REG]_RAMFILE ADR ;Address last value of PROC REG 

RAMFILE_tWl],NRFRD/1, ;Get last PROC REG 

IF NOT CT HM"} call [SET USER LATCH] 

2*([W1] + [W1 LH])_B -.Shift left twice 

2*[W1]_[W1 LH] ;Puts prev AC in position 

[Wl]_RAnFILE ;ln case clocic interrupts 
[Wl] Y,ALU_PROC REG, 
RETURN 

;RAMF!LE_[E LH] , ;Get previous section 

; J[PCS]_RANFILE ADR ;Reinember previous section 



;Here for MAP 

MAP: [K 7777.-"t]&CE]_B. 

SPEC SEL/PAGE TABLE ENTRY, 
IF [USER] CALL [CHECK 10 OK] 
J [MAP 3]_[W1] 
CALL [SET PF RCOVR] 
ZER0_[W1],O_UC, 
IF [PAGED] CALL [PAGE R REFIL] 
MAP 3: [K 777]6[E]_B,SEL AC+[0] 
J [1000] [W2l 
SWAP [W2]_[W2], 

IF [PAGED] CALL [W2.0R.W1] 
[E].0R.[W1] B.ALU RAMFILE. 
SET LOCAL, GOTOP [I FETCH] 



; Strip E to 30 


bits 




; Set section flags 




;Be sure a1 towed to 


do t1 


;Get page info 


for E 




; Leave only on 


page 


port 


;Wil1 become V 


bit 




;Make bit8 - V 


bit 





this 



ion 



;Aud on page portion 



.TOC " Stack Operations" 

;Here for AOJSP after FETCH AC&I and CHK PC SECT 

ADJSP: [K Ji07777.0]&[AC-OP]_Y,IX_nX, ;Latch sign of stack pointer 
SEL AC-t-CO], ~ : Address AC 

IF [SECTION 0] D [DISPATCH li] ; Qi. - ADJSP V 
SET LOCAL, 

IF CT [(fWxMOVR) inz] THEN [ADJSP V] 
[AC-OP]-»-[nE«-OP]_B,ALU_RA«FILE, -.Add adjustment 

IF [NOT B BIT 18] THEN [TO AC] 
[K -1.0]+[rtEM-0P] B.ALU RAMFILE, 
GOTO [TO AC] 

ADJSP V: 

[«EM-0P]+[AC-0P RH] B. ; Adjust RH 

SET LOCAL 

SWAP [MEM-OP]_[MEM-OP] ; Prepare to add to LH 
[ME«-0P]+[AC-OP]_B, ALU_RAMF I LE. 

IF NOT CT [INxorrtN] THEN [I FETCH] 

[nEn-OP]_Y, : Compare sign of E to AC 

IF CT [iNxorMN] CALL [SET TRAP 2] 
GOTO [TRAP] 



;Here for PUSH J 

g CHK PS SECT loaded SECTION from PC and loaded MB with PC 

|USHJ: [E]_CHE«-0P+.] ;Save adr where we will go 

[PC FLAGS]_Q, ;Save pc flags for sectO case 

J[PUSHJ FLAGS]_RAnFILE ADR :Adr of mask for flags to clear 
RAMFILE [W6], ~ :Get mask 

IF [SECTION 0] THEN [PUSH J VANILLA] 
[K W7777.0]6[nEM-OP]_Y, ;Check for which extended case 
IX MX 



SWAP [K 777]_[Wl] 



9b it mask for PC section 

PC sect to 9 bits (strange but ok) 
We are going to write PC in memory 



[W1]&[nB LH] B, 

IF CT [(fWxMOVR) !M2] THEN [PJ Hj 
[HEM-0P]+1 [MEM-OP], SET GLOBAL ; Increment poi nter 
WRITE [MEM-OP] 
[W6]BAR&[PC FLAGS]_B. ; CI ear flags 

SEL AC+[0] ; Select AC to restore pointer 

[MEM-OP+1] [PC], 

GOTO [TO AC] 



PUSHJ VANILLA: 

Q_[MB LH] 
PJ H: [BIT17]+[MEM-0P LH]_B 
[MEM-0P]+1 [MEM-OP RH] 
[MEM-OP] [E RH],SET LOCAL, 

CALL [MEMORY WRITE] 
[K - 1.0] 6 [MEM-OP] _Y. 

IX_MX,SEL AC+[0] 
[W6]BAR&[PC FLAGS]_B 
[MEM-0P+1]_[PC]. 

SET LOCAL. 

IF NOT CT [MZ] THENP [TO AC] 
[MEM-OP] Y,ALU_RAMFILE, 

GOTO [PUSH TRAP] 



;<pc flags,,PC> in MB 
: Increment LH 
: Increment RH of AC 
: Address to write into 

; Check for overflow 

; CI ear flags 
; Perform branch 



;Update pointer 
;Set trap flags 



;Here to check PC section, set MZ if section 
CHK PC SECT: 

[PC] [MB]. SECTION SELECT. ;Select our section 
UlSPATCH [DISPATCH 3] 



:Here for PUSH 

: CHK PC SECT loaded SECTION from PC 

PUSH: [PC]_Y,SECTION SELECT ;Se1ect our section 

[K 407777. 0]& [AC-OP] Y, ;Test for extended case 

IX_MX, 

IF~[SECTION 0] THEN [PUSH VANILLA] 
IF CT [ (MNxMOVR) I N2] THEN [PUSH VANILLA] 
[AC-0P]+1_[E], :New stack address 

IF [PXCT] CALL [PXCT STORE UO] 
[K 7777.-1]t[E]_F,F_Q_B. 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEM WRITE 1] 
SEL :+[0] ; Address AC 

[AC-0P]+1_Y,ALU RAMFILE, ; Update AC 

CLEAR LOCAL. 

GOTOP [I FETCH] 

PUSH VANILLA: 

[BIT17]+[AC-0P LKl_B ; Increment LH of stack pointer 

[AC-0P]+1_[AC-0P RH] : Increment RH 

[AC-OP] [E RH] , ;Set in section address 

IF [PXCT] CALL [PXCT STORE 1.0] 
[K 7777--l]&[E] F.F Q_l», ; Data already in MB 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEM WRITE 1] 
[K -1.0]&[AC-0P]_Y, : Check for overflow 

IX_MX,SEL AC-»-CO] : Address AC to restore updated version 

[AC-OP]_RAMFILE, :Restore stack pointer 

SET LOCAL, 

IF NOT CT [MZ] THENP [I FETCH] 
PUSH TRAP: 

CALL [SET TRAP 2] ;Set trap 2 flag 

SET LOCAL. GOTOP [TRAP] 



;Here for POP after CHK PC SECT 

POP- [K liO????. 0]& [MEM-OP] _Y, IX MX. ;Test stack pointer 

IF [SECTION 0] THEN IpOP VANILLA] 
[E]_[W6] . ;Save effective address 

IF~CT [(MNxMOVR) IMZ] THEN [POP V 1] 
[MEM-OP] Q_[E], ;Address of stack data 

IF [GLOBAL] THEN [POP 3] 
[K 7777. -1]6[E]_B, CLEAR LOCAL, 

IF [PXCT] CALL [PXCT FETCH ItO] 
[E]_Q_[E]. 

SPEC SEL/PAGE TABLE ENTRY. 

IF [NOT PXCT] CALL [MEMORY READ] 
SET LOCAL. GOTO [POP 5Z ;Restore effective address 

POP 3: [K 7777--l]6[E] B. ;Read location off stack 

IF [PXCT] CALL~[PXCT FETCH ItO] 
CE]_Q_[E] . 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEMORY READ] ;Read location off stack 
POP 5: [W6]_[E], 

IF [PXCT] CALL [PXCT STORE 200] 
[K 7777.-l]6[E]_F,F_Q_B. 

SPEC SEL/PAGE TABLE ENTRY. 

IF [NOT PXCT] CALL [MEM WRITE 1] 
SEL AC+[0] 
[K -1]4[MEM-0P]_Y. ; Decrement stack pointer 

ALU_RAMFILE, 

SET LOCAL, 

GOTOP [I FETCH] ; Store stack pointer 

POP V 3: 

[MEM-OP] [E RH],SET LOCAL. :Get in section address 

IF [PXCT] CALL [PXCT FETCH 1»0] 
[K 7777.-l]&[E] F,F Q_B. ; Get data from stack 

SPEC SEL/PAGE TABLE ENTRY. 

IF [NOT PXCT] CALL [MEMORY READ] 
SET GLOBAL. 

GOTO [POP V 5] 

POP VANILLA: 

[E] [W6] :Save effective address 

POP V 1: 

[PC]_[E]. ;Copy pdl section number 

IF [uLOBAL] THEN [POP V 3] 
[MEM-OP] [E RH].SET LOCAL. ;Get in section address 

IF [PXCT] CALL [PXCT FETCH 40] 
[K 7777.-l]&[E]_F,F_Q_B. : Get data from stack 

SPEC SEL/PAGE TABLE ENTRY. 

IF [NOT PXCT] CALL [MEMORY READ] 
POP V 5: 

[W6]_[E]. 

IF [PXCT] CALL [PXCT STORE 200] 
[K 7777.-l]&[E]_F.F_Q_B, 

SPEC SEL/PAGE TABLE ENTRY, 

IF [NOT PXCT] CALL [MEM WRITE 1] 
;G0TO [POP V PNTR] 
POP V PNTR: 

[K -1.0]t [MEM-OP] Y. ; Check for overflow 

IX MX 



[NEM-0P]-[BIT17]_A,SEL AC+[0] ; Decrement LH 

[K -l]+[nEM-OP RH] B, ; Decrement RH of pointer 

SET LOCAL, 

IF NOT CT [M2] THENP [TO AC] 

[NEM-OP]_RAMFILE, ; Store updated pointer 

GOTO [PUSH TRAP] ; Then trap 



;Here for POPJ 
POP J: 
||F, FTMBZ 

[K -1.0]BAR&[IR]_Y. ;E should be 

IF NOT CT [IZ] THEN [MUUO] 
.ENDIF/FTMBZ 

[K '♦07777.0] 6 [MEM-OP] _Y, ;Test stack pointer 
IX_MX, 

IF [NOT SECTION 0] THEN [POPJ 1] 
[MEM-OP]_[E RH], ; Fetch new PC 

CALL [MEM READ 0] 

[MB] [PC RH], ;Set new PC 

GOTO [POP V PNTR] 

POPJ 1: [MEM-OP]_[E RH],SET LOCAL, 

IF NOT CT [ (MNxMOVR) ! MZ] THEN [POPJ 2] 
READ [E] : Fetch new PC 

[MB]_[PC], ;Set new PC 

GOTO [POP V PNTR] 

POPJ 2: [MEM-OP]_[E],SET GLOBAL, ; Stack address 

CALL [MEM READ O] ; Fetch new PC 

[MB] [PC], ;Set new PC 

SEL AC+[0] 
[K -1]+[MEM-0P]_Y, ;Save new AC 

A' U_RAMFILE, 

SET LOCAL. 

GOTOP [I FETCH] 



;Here to put flags & PC in MB or PC in MB depending on section 
; First part of JSR and JSP 
JSR SETUP: 

J[PUSHJ FLAGS]_RAMFILE ADR 

RAMFILE_[W5],NRFRD/1, ;Get bits to clear from flags 

IF [SECTION 0] THEN [JSR SECT 0] 
[K 7777.-l]6[MB]_B. ;Mask off bits 0-5 

SEL AC+[0], 
DISPATCH [INST EXCT] 
JSR SECT 0: 

[PC FLAGS]_[MB LH],SEL AC+[0]. ;Put flags in memory Ih 
DISPATCH [INST EXCT] 



;Here for JSR 

JSR: 

^IF/FTMBZ 

IF [AC.NE.O] THEN [MUUO] 
.ENDIF/FThBZ 

CALL [MEMORY WRITE] 

CE3+1_[E RH] 



;AC field should be 

:MB already setup by JSR SETUP 
;Go to next location 



JSR CLEAR FLAGS: 

[W5] BARS [PC FLAGS]_B 

[E] [PC], SET LOCAL, 
GOTOP [I FETCH] 



Clear 1st part done. Address failure 

inhibit, and trap flags 
Set new PC 



;Here for JSP 

JSP: [MB]_RAMFILE, 

GOTO [JSR CLEAR FLAGS] 



;Wr i te AC and exit 



;Here for JSA 

JSA: [MEM-OP] [MB], 

CALL [MEMORY WRITE] 
SWA.' [E] [MEM-OP] 
[PC]_[MEM-OP RH] 
[E]_[PC] 
[PC]+1 [PC RH], 
GOTO ItO ACQ] 



;Copy AC to wr i te in E 

;Put E rh in mem Ih 
;Put PC rh in mem rh 
;Set new PC 
;Make E+1 new PC 



:Here for JRA 
JRA: [E] [W6] 

SWAP [MEM-OP] [E RH], 
CALL [MEM READ 0] 
[W6]_[PC],SEL AC+[0] 
[MB]_Y,ALU_RAMFILE, 
SET LOCAL, GOTO [I FETCH] 



:Save E 

: Address to load AC with 

;Set new PC 
;Write AC and done 



.TOC " Arithmetic Testing" 

^Here for CAxx instructions to compare operands 

fkX: [AC-OP] - [MEM-OP] _Y. I X_MX, ;Compare operands and dispatch 

DISPATCH [DISPATCH 3] 

;Here for AOxx instructions to increment AC or memory 
AOXX: [MEM-0P]+1_[MEM-0P], ; I ncrement and dl spatch 

!F CT [IZ IX_MX] THEN [SET CO! CI STORE] 

IF NOT CT [MOVR] D [DISPATCH 3] 

GOTO [SET 0V!C1!T1 STORE] 

;Here for SOxx instructions to decrement AC or memory 
SOXX: [K -1]+[MEM-0P]_B, ;Oecrement and dispatch 

IF CT [MZ IX MX] D [DISPATCH 3] 

IF NOT CT [MOVR] THEN [SET CO! CI STORE] 

GOTO [SET 0V!C0!T1 STORE] 



;Here for SxL instructions to condi tionaly skip 
SXL: IF NOT CT [MNxMOVR] D [DISPATCH i»] 
CPC]+1_[PC RH], 
DISPATCH [DISPATCH i»] 

;Here for SxE instructions to conditionaly skip 
SXE: IF NOT CT [MZ] D [DISPATCH It] 
[PC]+1_[PC RH], 
DISPATCH [DISPATCH i+] 

;Here for SxLE instructions to conditionaly skip 
SXLE: IF NOT CT [ (MNxMOVR) ! MZ] D [DISPATCH 4] 
;GOTO [SXA] 

;Here for SxA instructions to conditionaly skip 
SXA: [PC]+1_[PC RH], 

DISPATCH [DISPATCH it] 

;Here for SxGE instructions to conditionaly skip 
SXGE: IF CT [MNxMOVR] D [DISPATCH it] 
[PC] + 1_[PC RH], 
DISPATCH [DISPATCH it] 

;Here for SxN instructions to conditionaly skip 
SXN: IF CT [MZ] D [DISPATCH it] 
rPC]+l_[PC RH], 
DISPATCH [DISPATCH it] 

;Here for SxG instructions to conditionaly skip 
SXG: IF CT [ (MNxMOVR) !MZ] D [DISPATCH it] 
[PC]+1_[PC RH], 
DISPATCH [DISPATCH it] 



;Here for j:;L instructions to condi tionaly branch 
JXL: IF NOT CT [MN] D [DISPATCH 4], 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH 4] 

;Here for JxE instruct-" ons to cond i t i ona 1 y branch 
JXE: IF NOT CT [MZ] D [DISPATCH it], 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH U] 

;Here for JxLE instructions to condi tionaly branch 
JXLE: IF NOT CT [ (MNxMOVR) ! MZ] D [DISPATCH 4], 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH i»] 

;Here for JxA instructions to condi tionaly branch 
JXA: [E]_[PC],SET LOCAL, 

DISPATCH [DISPATCH i»] 

;Here for JxGE instructions to conditional/ branch 
JXGE: IF NOT CT [NOT MN] D [DISPATCH U] , 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH 1»] 

;Here for JxN instructions to condi tionaly branch 
JXN: IF CT [MZ] D [DISPATCH i»] , 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH it] 

;Here for JxG instructions to condi tionaly branch 
JXG: IF CT [ (MNxMOVR) ! MZ] D [DISPATCH i.] . 
SET LOCAL 
[E]_[PC], DISPATCH [DISPATCH i»] 



:Here for SKIPx instructions to store in AC if AC.ne.O 
SKIPX: SET LOCAL. 

IF [AC.EQ.O] THENP [IFETCH] ;lf nc AC we're done 
[nEM-OP]_RA«FILE, ; Store in AC 

GOTOP [IFETCH] 



.TOC 



Boolean Instructions" 



^Here for SETZx 
IeTZX: zero [NEN-OP], 

DISPATCH [INST EXCT] 



;l!ere for ANDx 

ANDX: [AC-OP] &[MEM-OP]_B, 

DISPATCH [OPERAND STORE] 



;And AC with MEn and store 



;Here for ANDCAx 

ANDCAX: [AC-OP] BARi[MEH-OP]_B. 

DISPATCH [OPERAND STORE] 

;Here for SETMI - XMOVEI 
XMOVEI: CALL [E MEM-OP] 
SEL AC+Io], 
DISPATCH [OPERAND STORE] 

:Here for ANDCMx 
ANDCMX: COMPLEMENT [MEM-OP] _F, 
F_ [MEM-OP], GOTO [ANDX] 

;Here for XORx 

XORX: [AC-OP]. XOR. [MEM-OP] F.F B, 
DISPATCH [OPERAND STOReJ 



;And AC complement with mem and store 



; Complement mem operand then 
; same as AND 



;Xor operands and store 



:Here for lORx 
ORX: [AC-OP]. OR. [MEM-OP] _B, 

DISPATCH [OPERAND STORE] 



» 



;lor operands and store 



:Here for ANDCBx 
ANDCBX: 
Sfflal I way is: 

COHPLEMENT [AC-OP] F, 
F [AC-OP], 
GOTO [ANDCMX] 
Fast way is: 

COMPLEMENT [MEM-OP]_F, 

F [MEM-OP] 
[AC-OP] BARS [MEM-OP]_B , 
DISPATCH [OPERAND STORE] 

;Here for EQVx 

EQVX: [AC-OP]. XNOR. [MEM-OP] F,F_B, 
DISPATCH [OPERAND STORE] 

;Here for SETCAx 

SETCAX: COMPLEMENT [MEM-OP] _F, 

F_[MEM-OP], 

DISPATCH [OPERAND STORE] 

;Here for ORCAx 

ORCAX: COMPLEMENT [AC-OP]_F , 

F_[AC-OP], 

GOTO [lORX] 

;Here for SETCMx 

SETCMX: COMPLEMENT [MEM-OP] _F, 

F_[MEM-OP] , 

DISPATCH [OPERAND STORE] 

;Here for ORCMx 

ORCMX: COMPLEMENT [MEM-OP]_F, 

F_[MEM-OP], 

GOTO [lORX] 

;Here for ORCBx 
ORCBX: [AC-OP] & [MEM-OP] _B. 
GOTO [SETCMX] 

;Here for SETOx 
SETOX: ONES_[MEM-OP] , 

DISPATCH [INST EXCT] 



; Complement AC operand 

; Complement mem operand 
;And complements and store 

;Put eqv (XNOR) in mem store 

; Complement AC and store 

; Complement AC then same as OR 

; Complement mem and store 

; Complement mem then same as OR 

;And operands then same as SETCM 



.TOC 



Half Word' 



;Here for HLL 

ILL: [AC-OP] [MEM-OP RH] , 

DISPATCH [OPERAND STORE] 



; Preserve RH of AC then store 



;Here for HLLI - XHLLI 

XHLLI: [E]_[MEM-OP LH], SECT I ON SELECT ; Preserve RH of AC 

[K 7777.-1] 6 [MEM-OPl_B, jStrip extraneous bits 
IF [NOT AC REF] THEN [TO ACQ] 

[PC] Y, SECTION SELECT, ;Check PC section 

IF Iglobal] then [to AC.O] 

SEL AC+[0], 
IF [SECTION 0] D [OPERAND STORE] 



[BITI7] [MEM-OP LH], 
GOTO [TO AC] 



;Sect » 1 here 



;Here for HRLM 

HRLM: SWAP [AC-OP]_[AC-OP] 
; GOTO [HLLM] 



;Swap AC op then same as HLLM 



;Here for HLLM 

HLLM: [AC-OP] [MEM-OP LH] , 

DISPATCH [OPERAND STORE] 



;Preserve LH of AC then store 



;Here for HRL 6 HRLI 
HRL: SWAP [MEM-OP]_[AC-OP LH] , 
DISPATCH [OPERAND STORE] 

^Here for HRLS 

HRLS: SWAP [MEM-OP] [MEM-OP LH] , 
DISPATCH [OPERAND STORE] 

;Here for HLLZX 

HLLZX: [K -1 .0]&[MEM-OP]_B, 

DISPATCH [DISPATCH l»] 



;Swap memory op then same as HLL 



;Pul RH in LH then store 



;Mask off rh and store 



:Here for HRLEX 
HRLEX: [MEM-OP] Y.IX MX 
; GOTO [HLLEX] 



:Test sign bit 



;Here for HLLEX 

HLLEX: ZERO_[MEM-OP RH] , 

IF NOT CT [MN] D [DISPATCH i«] 
:GOTO [HLLOX] 



:C1ear RH 



;Here for HLLOX 

HLLOX: ONES_[MEM-OP RH] , 

DISPATCH [DISPATCH W} 



;Add ones to rh and store 



:Here for HRR & HRRI 

HRR: [AC-OP] [MEH-OP LH] , 

DISPATCH [OPERAND STORE] 



; Preserve AC's 1h then store 



:Here for HLRM 

HLRM: SWAP [AC-OP]_[AC-OP] 
; GOTO [HRRM] 

;Here for HRRM 

HRRM: [AC-OP]_[MEM-OP RH] . 

DISPATCH [OPERAND STORE] 



:Swap AC arg then same as HRRH 



;Copy Rh then store 



:Here for HLR 6 HLRI 
HLR: SWAP [MEM-OP]_[AC-OP RH] , 
DISPATCH [OPERAND STORE] 

;Here for HLRS 

HLRS: SWAP [MEM-OP]_[MEM-OP RH] , 
GOTO [TO SELF] 



;Swap mem arg then same as HRR 



;Put LH in RH then store 



:Here for HRRZX 

HRRZX: ZERO_[MEM-OP LH] , 

DISPATCH [DISPATCH 1»] 



; Clear LH and store 



;Here for HRREX 

HRREX: [K -1 .0]BAR& [MEM-OP] _E, 

IF [NOT B BIT 18] C [DISPATCH 4] 
:GOT0 [HRROX] 



; CI ear RH and check sign 



:Here for HRROX 

HRROX: ONES_[MEM-OP LH] , 

DISPATCH [DISPATCH U] 



;Put ones in LH and store operand 



.TOC " Logical Testing and Modification" 

^Here for TRxx Instructions to get test bits and AC 

fRX: ZERO [E LH] , ; Leave only E RH, then set AC 

GOTO [TDXX] 

;Here for TLxx Instructions to get test bits and AC 

TLX: ZERO_[E LH] ;Strip RH and select AC 

SWAP [E]_[E], ;Put test bits in LH and select AC 

GOTO [TDXX] 

;Here for TDxx Instructions to get test bits and AC 
TDX: READ [E] ; Fetch test bits 

CMB]_[E],SEL AC+[0] ;Copy test bits, and select AC 

TDXX: RAMFILE_[rtEM-OPj,NRFRD/l, :Get AC and dispatch 

SET LOCAL, 

DISPATCH [DISPATCH 2] 

;Here for TSxx Instructions to get test bits and AC 
TSX: READ [E] ; Fetch test bits 

SWAP [MB]_[E],SEL AC+[0] ;Swap test bits and select Ai: 
RAMFILE_[MEM-0P],NRFRD/1, ;Get AC and dispatch 
SET LOCAL, 
DISPATCH [DISPATCH 2] 

;Here for TxE Instructions for conditional skip 
TXE: [E]£[MEM-OP]_Y, ; Check for need to skip 

IF NOT CT [IZ] D [DISPATCH 3] 
;GOTO [TXA] 

;Here for TxA Instructions for conditional skip 
TXA: [PC]+1_[PC RH], 

DISPATCH [DISPATCH 3] 

;Here for TxN Instructions for conditional skip 
TXN: [E]6rMEM-0P]_Y, ; Check for need to skip 

IF CT [IZ] D [DISPATCH 3] 
[PC]+1_[PC RH], 
DISPATCH [DISPATCH 3] 

;Here for TxZ Instructions to change bits 

TXZ: [E]BAR& [MEM-OP] Y, ;Store new bits 

ALU RAMFILE, 

GOTOP [I FETCH] 

;Here for TxC Instructions to change bits 

TXC: [E].XOR. [MEM-OP] Y, ;Store new bits 

ALU RAMFILE, 

GOTOP [I FETCH] 

;Here for TxO Instructions to change bits 

TXO: [E].OR.[MEM-OP]_Y, ;Store new bits 

ALU_RAMFILE, 

GOTOP [I FETCH] 



.TOC "EXTEND INSTRUCTIONS" 

.IF/FTEXTEND 

EXTEND: READ [E] ;Get EO word 

CALL [EFA CALC] 
.ENDIF/FTEXTEND 



.TOC "CIS Instructions" 

jIF/FTCIS 

I Current block ACO will be as follows for interrupts 

11111111112222222 222333333 

0123'»567890123'»567890123't56 7890123A5 
+ + + 

+ + + 
+ + + 

\ / 

+ number of bytes so far 

Register usage 

W1 current byte 

W2 src adr (bi tO«iinmedi ate;bi ts ^-35 are 32bit byte adr) 

W3 src wrd 

Wl» dest adr 

W5 dest wrd 

W6 0., bytes left to do 

ACO number of bytes to do,, number of bytes written 

; Common routine to do setup for CIS instructions 
CIS SETUP: 

J[400]_[W1] 

SWAP [W1]_[W1] ;«ake a bitg 

[W1]_Q ;Save copy in Q reg 

Q6[IR]_F,F_Y LSR(i_Q, IX_MX ;Test bit 9 
Q6[IR]_F,F_Y LSRQ_Q, ~ ;Test bit 10 
IF CT [MZ IX_MX] THEN [CS 2] 
IHere if bit 9 is 

Q6[IR] F.F Y LSRQ_Q, ;Test bit 11 

IF NOT CT [MZ IX_MX] THEN [CS 1] 
[E]_[W2] ;Copy source adr 

2*[W2]_[W2]. 

IF NOT CT [IZ] CALL [W2+1] 
2*[W23_[W2], 

IF NOT CT [IZ] CALL [W2+1] 
[PC FLAGS]&[BITi»]_F ;Check first part done 

W2+1: [W2] + 1_[W2] .RETURN 
;Here if bits 9.10 are 0,1 

CS 1: Q6[IR]_F,F_Y LSRQ_Q. ;Test bit 12 

IF NOT CT [MZ IX_MX] THEN [MUUOJ 
[E]_[W3]. :ln case immediate 

IF~NOT CT [MZ] THEN [CSl IM] 
;Here if first operand is deferred mode 

READ [E] ;Get adr of operand 

•IF/FTMBZ 

J[32B MASK] RAMFILE ADR 
RAMFILE_[W1],NRFRD/1 

[W1]BAR?[MB]_Y,IX_MX ;Test for illegal bits 

[MB]_[W2], ;Copy adr 

IF NOT CT [MZ] THEN [MUUO] 
.END!F/FTMBZ 
.IFNOT/FTMBZ 

[MB]_[W2] ;Copy adr 

.END IF/FTMBZ 

;Here if immediate operand 
CSl IM: 
:Here is bit 9 is 1 



CS 2: DISPATCH [DISPATCH 2] 



MOVC: CBm]&[PC FLAGS]_F 

JS[03_CW6] 

LRS [W63 [W6] 

LRS [W6]_[W6] 
MOVC 7: CALL [NXT SRC BYT] 

CALL [W NXT DST BYT] 

[K -1]+[W6]_B, 
IF NOT CT [IZ] THEN [MOVC 7] 

GOTOP [I FETCH] 



; Check first part done 



;Get next byte to transfer 
; Copy i t 



;Register conventions same as MOVC 






CMPC: 








CMPC 7: 


CALL [NXT SRC BYT] 
JCEIS W1] RAMFILE ADR 




;Get first operand 




[K 777]6[W1]_Y,ALU RAMFILE, 




;Save first operand 




CALL [R NXT DST BYT] 




; Get other byte 




[K 777]6[W1]_Q, 








J[EIS Wl] RAMFILE ADR 








RAMFILE [WT],NRFRD/1 








Q-[W1]_Y, 








IF NOT CT [IZ IX MX] THEN 


[CMPC 


8] 




[K -1]+[W6]_B. 








IF NOT CT [12] THEN [CMPC 


7] 






GOTOP [1 FETCH] 






CMPC 8: 


IF CT [MN] THEN [CMPC 9] 






CMPC 9: 


GOTOP [1 FETCH] 







byte 



;nove Characters Variable Length 

NOVCV: 

I Compare Characters Variable Length 

|hPCV: 

;Compare Numeric Display 

CnPND: 

;Adcl Numeric Display 

ADDND: 

: Subtract Numeric Display 

SUBND: 

;nove Numeric Display 

MOVNb: 

;Arithmetic Shift Numeric Display 

ASHND: 

;Convert Numeric Display to Binary 

CVTNDB: 

; Convert Binary to Numeric Display 

CVTBND: 

;Test for Lenal Numeric Display 

TLGND: 

; Compare Packed 

CMPP: 

;Add Packed 

ADDP: 

;Subtract Packed 

SUBP: 

;nove Packed 

MOVP: 

^Arithmetic Shift Packed 
SHP: 
;Clear High Order Packed 
CHOP: 

; Convert Packed to Binary 
CVTPB: 

; Convert Binary to Packed 
CVTBP: 

; Convert Numeric Display to Packed 
CVTNDP: 

; Convert Packed to Numeric Display 
CVTPND: 

: Convert EBCDIC Numeric Display to Packed 
CVTEP: 

; Convert Packed to EBCDIC Numeric Display 
CVTPE: 



;Here to read the next source byte 
NXT SRC BYT: 

[W2]+l [W2], ;Next byte adr 

IF CT [IN IX_MX] THEN [NXT SRC I] 
ASR CW2]_[E] MC -.Copy adr to E 

ASR [W2]_[E] MC, ;Copy word adr 

IF CT [MC] THEN [NSB 2] ; Check for odd or even byte 

IF CT [MC] THEN [NSB 3] 
;Here if need to fetch next source word 
READ [E] 

[MB]_[W3], ;Copy data 

J[2]_CTR 
SWAP [W3] [Wl] 
2*[W1]_[WT], 
GOTO [NSB 30] 

;Here for 3''d byte in word 

NSB 3: 2*[W3] [Wl], ;Copy to right word 

J [3] CTR 
NSB 30: i**[Wl]_B, 

LOOP [NSB 30] 
SWAP Wl Wl: 

"swap [W1]_[W1], 

RETURN 

;Here for 2nd or i»th byte in word 
NSB 2: [W3]_[W1], 

IF CT [MC] RETURN 
;Here for 2nd byte in word 
SWAP [W1]_[W1]. 
RETURN 

NXT SRC I: 

[W3]_[W1], ;Next byie 

RETURN 

;Here to read the next destination byte 
R NXT DST BYT: 



;Here to write the next destination byte 
1 Call with byte right justified in Wl 
f NXT DST BYT: 

[Wi»]+1 [W4] 
ASR [wiI]_CE] MC 
ASR [WU]_[E] MC, 
IF CT [MC] THEN [W^;DB 2] 
IF CT [MC] THEN [V'NDB 3] 
;Here if need to fetch next source word 
READ [E] 
[MB]_[W5] , 
J [3] CTR 
J[NBBYTE1]_RAMF1LE ADR 
SWAP [W1]_[W1] 
2*[W1]_[W1]. 
GOTO [WNDB 30] 



;Next byte adr 
;Copy adr to E 
;Copy word adr 
; Check for odd or even byte 



;Copy data 



;Here for 3rd byte in word 
WNDB 3: JCNBBYTE3]_RAMFILE ADR 
2*[W5]_[W1]. 
J[3]_CTR 
WNDB 30:'«*[W1]_B, 

loop [wndb 30] 
ramfile [mb], 
return" 



;Copy to right word 



;Get masl< for character 



WNDB 2: SWAP [K 777] [MB], 

I IF CT [MC] THEN [WNDB it] 

"Here for 2nd byte in word 

SWAP [W1]_[W1] 
WNDB 20:[MB]BAR&[W5]_B 

[MB]6[W1]_B 

[W1].0R.[W5]_B. 
RETURN 



;Mask for byte 



; Position data 
;Strip old byte from word 
;Strip data to move 
;Adu new bits to word 



;Here for 4th byte in word 
WNDB 4: [K 777] BARS [W5]_Q 
[K 777]&[W1]_B 
Q.0R.[W1]_[MB]. 
CALL [MEMORY WRITE] 
[E]+1_Q_[E]. 

SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEMORY READ] 
[MB]_[W5] . 
RETURN 
.ENDIF/FTCIS 



;Mask off old data 

;Mask off extraneous bits from data 

;Add new byte to data 



.IOC "10 INSTRUCTIONS" 

10: 2*[IR]_[W13, ;Copy IR to W1 shifted left 

IF [USER] CALL [CHECK 10 OK] 
i»*[W1]_B, :Keep shifting 

CALL [2*W1 Wl LOAD I R] 
DISPATCH [10 0] 

2*W1_W1 LOAD IR: 

2*[W1]_[W1], ;Keep shifting 

LOAD I R. RETURN 

10 U: 

;Here for an illegal 10 instruction 
XIO' IF [USER] CALL [CHECK 10 OK] 
GOTOP [I FETCH] 

;Here to check if EXEC or user 10 is set 
: If 10 is legal return, else do NUUO 
CHECK 10 CK: 

J[i»000]_[W1],IF [EXEC] RETURN :Bit 24 

SWAP [WT]_[W1],IF [PXCT] RETURN ;«ake bit 6-Uscr I/O 

[W1]&[PC FLAGS]_Y, 
IF NOT CT [IZ] RETURN 

GOTOP [MUUO] 



.TOC " Arithmetic Processor" 

^NOBIN 

^Arithmetic Processor Identification 
APR ID 

+ — ♦■ + — -H ¥■ 

! 70000 I I ! X I Y ! 
+ + + + »- 

Oias'^StyS 910111213H1516171819202122232U2526272829303132333'»35 
! \ / \ / \ / 

III + reserved 

I I + u-code version number 

I + reserved 

+ u-code includes address break 

.BIN 

APRID: 
Possible coding 

J [X]_ [MEM-OP] :Loat' bits 0-11 

ROL [MEM-OP] [MEM-OP], J[10.]_CTR 
ROL [MEM-OP] [MEM-OP], LOOP [.] 

[MEM-OP] J [Y]_[MEM-OP] ;Add bits 12-23 

ROL [MEM-0P]_[MEM-0P],J[10.] CTR 
ROL [MEM-OP] [MEM-OP], LOOP [7] 

[MEM-OP] J [Z]~[MEM-OP], :Add bits 2i»-35 

GOTO [TO MEMORY] 
. I FNOT/FTADRB 

I J [U-CODE VERSION] [MEM-OP] ;Put u-code version in register 

?ENDIF/FTADRB 
.IF/FTADRB 

J[U-CODE VERSI0N]_Y21»-Y35. :Put u-code version in register 

[BIT17]_F,F_R0R Y_[MEM-OP] ;Bit for address break feature 

.END IF/FTADRB 

SWAP [MEM-OP] _ [HEM-OP], :Put u-code version in Ih 

GOTO [TO MEM] 



.NOBIN 

Conditions Out, arithmetic processor 
CONO APR, 

+ + — -+ + + 

! 70020 ! I ! X ! Y I 
+ + + + + 



E bits 



18192021 22232425262728293031 32333'«35 
I I ! I I ! \ flags / ! \ / 
!!!!!! I + — PIA 

!!!!!! + should be zero 

!!!!!+ Set selected flags 

I I I I + Clear selected flags 

I ! ! + disable selected flags 

I I + enable selected flags 

! + clear all 10 devices 

+ should be zero 



.BIN 



CONO APR: 
.IFN0T/FT7PI 

J[6]_[W1] 
[Wl]i[E] Y, IX_«X 
ROR [W1]~[W1], 

IF NOT CT [MZ] THEN [CNAPRl] 
CW1]&[E]_Y, 
IF NOT CT [IZ] THEN [MUUO] 
CNAPRl: 
.EMDIF/FT7PI 
.IF/FTMBZ 

J[0010]_Y2i»-Y35,[BITI7]_F. 
F_ROR Y_[W1] 
[W1]i[E]_Y, 
IF NOT CT [IZ] THEN [MUUO] 
.ENOIF/FTnBZ 

J[i»000]_[Wl] 
[W1]+[W1]_Q. 

J [APR FLAGS] RAnFILE ADR 
J[7760]_[W2] " 
[E]»[W2]_B 
RA«FILE_[W1], 

CALL [CAPR X] 
SWAP [W23 [W2]. 

CALL [CAPR Y] 
J[7]_CW2] 
[W2]BARft[Wl] B 
[E]t[W2]_B 
.IFH0T/FT7PI 

[W2]+[K -1] Y. 
IF CT [IZ] THEN [nUUO] 
.ENDIF/FT7PI 

[W2].0R.[W1] Y.ALU RAAFILE 
Q*[E]_F.ALU Y/YES.2»Q_Q. 

IF NOT CT [IZ] CALL [RES£T 10] 
CALL [SET PROC REG] 
SET LOCAL. 
60T0P [I FETCH] 



;nask for PI channel 
;nake mask for bit 35 
;nay not put on channel 1 

:Nakes 0., 400010 

: Check for illegitiiute bits 



;nask to test bits 
;Put NMsk in Q reg 

;nask for flags 

: Leave only flags 

:Get processor flags 

; Turn on/turn off flags 

:Swap halves 

: Turn off /turn on flags 

;nask ->r PI chnl 

:Strip old PI chnl 

;Leave only PI chnl 

: Check for setting PI level 1 
;Nc you don' t 

:Save updated APR flags 
;T«st for 10 reset 



;Here to perforin an 10 reset function 
1 Wave 10 RESET, clear aH APR flags. 
hSET 10: 

J [APR FLAGS]_RAnFILE ADR 

ZERO_Y,ALU_RAMFILE 

JCLNOSW] [W6].Y_RA«FILE ADR 

J[i»200] IW5] 

SWAP [W5]_[W5] 

i»*[W5]_B.ALU RAMFILE 

Cw6]+i_F , f_qTj [75]_CTR 

I0R2: Q+1_F,F_Q_Y,Y_RAMFILE ADR 

ZERO Y.ALU RAMFILE.lOOP [I0R2] 
;J[2000]_[W1] 
:[W1]_Y.ALU PROC REG, 
; CALL [SET~PR0C REG] 
ZERO Y.ALU PROC REG. 
CALL [SET'pROC REG] 
GOTO [SET PCI MODE] 



clear a 1 1 TTY flags 

; Address APR flags 
;Clear flags 
; Address first TfY 
;CR5-RTS, CRl-DTR 



I ink block 



;Save in! 
;Address 
; Address 



tial 
mode 
next 



CTY status 

word 

location 



;Bit for 10 reset 

;Tell processor reset 

; Then tell it right info 

; Clean processor reg 

; Then l^ad it 

;Set mode for CTY 



;Here to test for set/lest for clear flags 
; Mask (to be shifted left) is in Q and is 
: W2 is ored or bar&ed into W1 
CAPR X: Q&[E]_F,ALU_Y/YES,2*Q_Q, 

IF NOT CT [IZ] CALL [W2.0R.Wl] 
Q6[E] F.ALU Y/YES,r*Q_Q. 

IF CT [IZ] RETURN 
W2BAR&W1_B: 

[W2]BAR£[W1]_B, 

RETURN 



tested with E 



;Test for set selected flags/enables 

;Set selected flags/enables 

;Test for clear selected flags/enables 



;C1ear selected flags/enables 



;Here to test 
; Mask (to be 
: W2 is 
CAPR Y: 



CAPRY2; 



for clear/test for set flags 
shifted left) is !n Q and is tested with E 
ored or bar&ed into W1 
Q6[E]_F , ALU_Y/YES, 2*Q_ Q, 

IF CT [IZ] THEN [CAPRY2] 
[W2]BAR6[W1]_B 
Q6[E]_F,ALU_Y/YES,2*Q_Q, 
IF CT [IZ] RETURN 



W2.0R.W1 



[W2].0R.[W1]_B, 
RETURN 



;Test for set selected flags/enables 



;Clear selected 
;Test for clear 



flags/enables 
selected flags/enables 



;Set selected flags/enables 



.NOBIN 

iConditions In, arithmetic processor 

\ CON I APR, 

+ + + + + 

! 70024 ! I ! X ! Y ! 
+ + + + ■> 

01 23'«5678 910ni213Ul5l6l7l8l9202122232it2526272829303132333it35 

\ flags / \ flags / ! \ / 

! ! ! + — PIA 

' ! + intrupt req 

! + flags 

+ flags enabled for interrupts 

.BIN 



CON I APR: 

CALL [CI APR] 
GOTO [TO MEM] 



;Store results and exit 



;Here for CONI APR, CONSZ APR. or CONSO APR.. 



CI APR: J [APR FLAGS] RAMF I LE ADR 
RAMF I LE_[MEM-OP] .NRFRD/1 
SWAP [MEM-OP] [Wl] 

[mem-op]&[wi]Iy.ix MX 

J[0010]_[W1],~ 
IF CT [M2] RETURN 

[Wl]. OR. [MEM-OP] B. 
RETURN 



;Where we keep flags 

;Put enables in RH 

;Mask bits 

;Bit for interrupt request 



CONSZ APR: 

CALL [CI APR] 
ZERO [MEM-OP LH]. 
GOTO [CONSZ] 



:Get APR bits for CONI 



CONSO APR: 

CALL [CI APR] 
ZERO_[«EM-OP LH]. 
GOTO [CONSO] 



:Get APR bits for CONI 



TOC " PI System" 
NOB IN 

Conditions Out, Priority Interrupt 
CONO PI . 

+ + ■*■ + + 

! 70060 ! I ! X ! Y ! 
+ + + + + 



E bits 



18192021 22232425262728293031 323331»35 



\ / 

\ / 

\ / 



23456 



+ -- 



! + Select levels 

+ Turn on PI system 

Turn off PI system 

Turn off level 

! + Turn on level 

! + initiate interrupt on level 

+ clear PI system 

drop program request on level 

should be zero 



.BIN 



CONO PI: 

.IF/FT7PI 

.IF/FTMBZ 

J [7400] [Wl] 
'♦♦[Wl] B, 
CALL iLLSi* MBZ] 
.ENDIF/FTMBZ 

BITO [W2] 
J[177]_[W3] 
[W3]+1_Q. 

J [PI LVL REG]_RAMFILE ADR 
[E]&[W3]_B 
RANFILE [Wl], 
CALL [CAPR X] 
.ENDIF/FT7PI 
.IFN0T/FT7PI 
•IF/FTMBZ 

J[7401] [Wl] 
i»*[Wl] B. 
CALL [LLSi» MBZ] 
.END IF/FTMBZ 

BIT0_[W2] 
[K 77]_[W3] 
[W3]+1_Q. 

J [PI LVL REG] RAMFILE ADR 
CE]&[W3]_B 

RAMFILE_Y,Y [Wl] QLS Q, 
QI0N_sT0O 0_QI00, 
CALL~CCAPR X] 
.ENDIF/FT7PI 

[W3]_[W2], 
CALL [CAPR Y] 
[W1]_RAMFILE 

J[prSFT REQ] RAMFILE ADR 
Qt[E]_F,ALU y7yES,2*Q_Q,IX MX 
RAMFILE [W2T. 



;Mask for must be zero bits 
;Shift 6 places and check 



;Bit for PI on 
;Mask for chni bits 
;Put 200 in Q 

; Leave only chnls to select 
:Get PI LVL REG from ramfile 
; Test for PI ON/PI OFF 



;Mask for must be zero bits 
; Shi ft 6 places and check 



:Bit for PI on 
;Mask for chni bits 
;Put 100 in Q 

: Leave only chnls to select 

:Put PI LVL REG in Wl 

; Put 200 in Q 

; Test for PI ON/PI OFF 

;Te»t for turn off /on levels 
; Se.. /clear bits in Wl 
;Save updated PI LVL REG 

:Test for initiate int on level 
;Get software interrupt requests 



IF CT [MZ] THEN [C PI 5] 
[W3].OR.[W2] B,ALU_RAMFILE 
C PI 5: Q&CE] F,ALU_Y/YES,2*Q_Q. 

IF Cf [IZ] THEN [C PI 6] 
CALL [RESET PI] 
SET LOCAL, GOTOP [I FETCH] 

C PI 6: Q&[E] Y, 

IF CT [iZ] THEN [C PI 7] 

[W3] BARS [W2]_B, ALU RAHF I LE 
C PI 7: CALL [SET PI SYSTEM] 

SET LOCAL, GOTOP [I FETCH] 



;Add new levels 

;Test for clear PI system 

;Reset the PI system 



;Test *or drop int on level 

; Clear some levels 
; Setup PI hdw 



;Here to reset the PI system 
RESET PI: 

J [PI IN PROG]_RAMFIL£ ADR 

ZERO_Y,ALU RAMFILE 

J [PI SFT REQ]_RAMFILE ADR 

ZERO_Y,ALU_RAMFILE. 

INT OP/MASTER CLEAR 
J [PI LVL REG]_RAMFILE ADR 
ZERO_[PI REG],ALU_RAMFILE, 
Y ail'* STATUS, 
GOTO [SET PI SYSTEM] 

;Here to set up 291J« PI mask 
SET PI MASK: 

J [PI LVL REG]_RAMFILE ADR 

J[300]_[W2] 

RAMFILE_[W1] 

[W1]_Y, 

IF NOT CT [IN] THEN [SPM 7] 
[W1].0R.[W2] B 
SPM 7: COMPLEMENT [W2]_F,F_Y, 
Y.agU MASK, 
RETURN 



;lnt's in progress in bits 29-35 

;Software PI requests 

; bits 29-35 are levels on 
;bit is PI system on/off flag 

;Set mask register 



; Address ramfile list of levels on 
; Always enable level and 1 
;Get levels from ramfile 



;Enable software levels also 
;Load mask with Pi's to permit 



;Here to setup PI system 

SET PI SYSTEM: 

CALL [SET PI MASK] 
;GOTO [SET PROC REG] 



.NOBIN 
;PROC REG 
^01 



2 3 



\ / ! 


\ / \ 


/ 


! 1 


! + - 


-- P 


! ! 


+ -— Line PI 


reg 


! + 


10 reset 




+ 


reserved 





(Processor register) 

i» 5 6 7 8 9lOlll213Kl5l6l7l8l9202122232i»2526272829303l32333'»35 
\ / 

! 

! 

I 

+ Current AC block 



Ramf ile word [PROC REG] 
01 2345678 910in213l4l5l6l7l8l9202122232i42526272829303132333'»35 
\/\/ \/\/ 

I + prev ctxt AC block ! + Line PI Ivl 

+ --- Current AC block + reserved 

BIN 



req 



;Here to set up hardware PROC reg accord 
; Called whenever APR/TTY/Sof twarePIReq 
: Uses W1-Wi( 
SET PROC REG: 

J [PI SFT REQ]_RAMFILE ADR 

RAMF ILE [W1»],NRFRD/1 

J [APR FLAGS] RAMF ILE ADR 

RAMF ILE [W1]7nRFRD/1 

SWAP [WT]_[W2] 

[W1]&CW2]_Y, 
IF MOT CT [IZ] CALL [SPR 77] 

J[4O0O] [Wl] 

J[2220]Iy21»-Y35. 

[W1] + [W1]_F,F_LS2 Y [Wl] 
[W1]_Q.J[?]_CTR 
J[LN0SW]_[W3].Y_RAMFILE ADR 
SPR 2: RAMFILE_[W1],NRFRD/1 
Q&[W1]_F,LS2 F [W2], 

IF CT [IZ] THEN [SPR i»] 
[W1]&[W2]_Y, 
IF NOT CT [IZ] CALL [SPR 77] 
SPR U: J[10]_[W1] 

LW1]+[W3] B.Y RAMF ILE ADR. 
LOOP [SPR 2] 
J [PROC REG]_RAMFILE ADR 
RAMFILE_[W3],NRFRD/1 
SET RFPRG: 

J[RF PROC REG] RAMF ILE ADR 

[Wi»] .OR. [w3]_yTalu_ramfile 

[Wi»] . OR . [W3]_Y . ALU_PROC REG , 
RETURN 

SPR 77: J[7]_[W2] 

[W2]&[W1] B.IF CT [IZ] RETURN 

J[BIT28]_IW2] 

[W2]+[W1] Y,Y_RAMFILE ADR 

RAMF ILE [Wlj.NRFRD/l 

[Wl] .ORT[Wi»]_B, RETURN 



ing to Ramf i 1e 
change 



;Ramfile list of software pi req's 

;Address APR flags 

;Get APR flags 

;Swap flags and enables 

;Check for flags with enables 

:Set request level 

:Wil1 become 020000 

;Mask for flags - 022220 

;Save mask 

; Address line block 

;Get status for line 

; Check for any flags set 

; Check for enables for flags 
: Set int req 
;To make next line adr 
;Next block adr 

; Address ramf ile copy of proc reg 
;Get ramf ile copy of proc reg 



;Change software interrupts 



;Mask for PI level 

; I f no channel dismiss 

:Base to index into bit table 

;Make bit for our level 

:6et bit for interrupt 

;Set level 



.NOBIN 

Conditions In, Priority Interrupt 
CON I PI, 

+ — + + <- + 

! 70064 ! I ! X ! Y ! 
+ + + + + 

01 23'»5678 91011 1213m5l6l7l8l9202122232i»2526272829303132333'»35 

123't567 123'»567!123'«567 

\ / \ / ! \ / 

! ! I + levels on 

! ! + PI system on 

! + interrupt in progress on 

+ program requests on 

.BIN 

CON! PI: 

CALL [CPI] ;Get PI bits 

J [PI SFT REQ]_RAM?ILE ADR ;Get software requests 

RAMFILE_[W1],NRFRD/1 ;Get software requests 
SWAP [WT]_[MEM-0P LHl, 

GOTO [TO MEM] ;Give user result 

;Here from CONI PI, or CONSO PI, or CONSZ PI 

; Returns bits in MEM-OP, and 177 in Wl 

CPI: J[PI LVL REG3_RAMFILE ADR ;Get PI levels on 

JC177]_[W1] :Mask for levels 

RAMFILE_Y,[W1]_F,F_Q Y_[W1] 

J [PI IN PROG]_RAMFILE ADR 

[W1]_Y.IX_MX ;Test for PI on 

Q6[W1]_[MEM-0P], ;Leave only Pi levels on 

IF NOT CT [MN] THEN [CPI 2] ; Branch if PI OFF 

Q+[MEM-0P]+1 F,F [MEM-OP] ;Add 200 to MEM-OP 

CPI 2: RAMFILE_[W1],PUSH J[3]_CTR 

i»*[Wl]_B,RFCT ;Shift left 8 places 

[Wl] .OR.[MEM-OP]_B, ;Add interrupts in progress 

RETURN 



^Conditions In and Skip if Zero, Priority Interrupt 
ioNSZ PI: 

CALL [CPI] ;Get bits to test in MEM-OP 

CONSZ: [MEM-OP] 6 [E]_Y, 
SET LOCAL, 

IF NOT CT [IZ] THENP [I FETCH] 
[PC]+1_[PC RH] , 
GOTOP [I FETCH] 

;Conditions In and Skip if Ones, Priority Interrupt 
CONSO PI: 

CALL [CPI] ;Get bits to test in MEM-OP 

CONSO: [MEM-OP] 6 [E]_Y, 
SET LOCAL, 

IF CT [IZ] THENP [I FETCH] 
[PC] + 1 [PC RH], 
G0T0P~[IFETCH] 



•TOC " Pager" 
.NOBIN 

Conditions Out, Pager 

CONO PAG. or WREBR 

+ + + + + 

! 70120 ! I ! X ! Y ! 
+ + + + + 

E format 

181920212223242526272829303132333^35 
\ / ! ! \ / 

\ / ! ! + Executive base address (page number) 

! ! + Enable Pager 

! + Tops20 Paging 

+ should be zero 

.BIN 

CONO PAG: 
•IF/FTMBZ 

J[7000]_[W1] 
'♦*[W1]_B, 
CALL [LLSU MB2] 
.END IF/FTMBZ 

CALL [PAGE TABLE CLEAR] ;Clear entire page table 
[E] [Wl], ;Get page number 

CALL [Wl (22) LLSg] 
J[BIT22]_RA«FILE ADR ;Mask for enable 

Q&[W2]_[EPT].SET T0PS20 ;Set new EPT 
[E3_Q RAMFILE_[W2],CLEAR PAGED ;Get bit for enable 
[W2]6[E]_F,R0R F_B ROR Q_Q, 
IF NOT CT [IZ] CALL [SET PAGED LATCH] 
.IF/FTIOPAG 
.IF/FT20PAG 

Q&[W2]_Y. 
IF NOT CT [IZ] THEN [TO NOWHERE] 
.ENDIF/FT20PAG 

CLEAR T0PS20, 
GOTO [TO NOWHERE] 
.EN0IF/FT1OPAG 
.IFNOT/FTIOPAG 

SET LOCAL. 
GOTO [I FETCH] 
.ENDIF/FT10PAG 

SET PAGED LATCH: 

SET PAGED, RETURN 

;Here to shift Wl left 9 places and get 22 bit mask 
Wl (22) LLS9: 

J[22B MASK]„RAMFILE ADR ;rtask for EPT adr 

;Herc to shift Wl left 9 places, leave it in Q and Wl and read ramfile into W2 

Wl LLS9: 

2*[W1]_[W1],PUSH J[3]_CTR ;Shift left 1 place 

it*[Wl] B,RFCT ;Keep shifting 2 at a time 

[Wl] Q RAMFILE_[W2], ;Get ramfile 

RETURN 



.IF/FTNBZ 
LLSi» MBZ: 

'♦*[W1]_B 

i»*[Wl]~B 

[W1]&[E]_Y. 
IF CT [IZ] RETURN 

GOTO [MUUO] 
.ENDIF/FTMBZ 



.NOB IN 



Conditions In, Pager 

CON I PAG. or RDEBR 
+ + + + + 

I 70124 I I I X 1 Y ! 

+ + + + J. 

E format 

1819202 122232'»2526272829303132333'»35 
\ / ! ! \ / 

\ / ! I ->- Executive base address (page number) 

! ! + Enable Pager 



! + Tops20 Paging 

+ reserved 



.aiN 

CON I PAG: 



J[BIT22]_RAMFILE ADR 
[EPT]_[W13. 

CALL [W1 LLS9] 
SWAP [W1]_[W1], 

IF [PAGED] CALL [W2.0R.W1] 
2*[W2]_[W2]. 

IF rT0PS20] CALL [W2.0R.W1] 
[W1]_[HEM-0P], 

GOTO [TO MEM] 



;Bit for paging enabled 



;Put page number in right half 
;We are paged 
:Hake a bit 21 
;Flag this is T0PS2O 



.NOB IN 

|Oata Out, Pager 

DATAO PAG. or WRUBR 

+ 1- — -+ — -+---+ 

! 701U ! I ! X ! Y ! 



2 3 *» 5 6 7 8 91011 12131'»15l6l7l8l9202i22232i»2526272829303132333*35 
! \/\/\ /! \ / 

' \ / \ / \ / ! + — User Base ad r (page #) 

! ! I \ / + Do not update accounts 

! ! ! + previous context section 

! ! + previous context ac block 

! + current ac block 

•f load user base address 

+ select previous context section 

select ac blocks 

.BIN 



DATAO PAG: 

READ [E] 



0AT0P2: 



DATOPii: 



CALL [PAGE TABLE CLEAR] 

BIT0_[W3] 

J[PROC REG] RAHFILE ADR. 

[W3]_Q 
Qt[HB]_F.F_Y LSRQlQ.U «X 
RAMFILE [W3] 
J[7700]I[Wli] 
SWAP [Wii]_[Wii]. 

IF CT [H2] THEM [DAT0P2] 
[Wii]BAR([W3] B 
[HB]tCWl.] B ~ 
[Wl»].0R.[W3] B.ALU RAHFILE. 

CALL [SET RFPR6] 
Q*[«B] F.F Y LSR(i_Q. 

IF CT [IZ] THEN [DATOPk] 
J [PCS] RAMFILE ADR 
J[37]Jwi] 

SWAP [W1]_[W1] 
[W1]i[nB]~Y.ALU RAnFILE 
Q*CW].Y.~ 

IF CT [IZ] THENP [IFETCH] 
[W]_[W1]. 

CALL [W1 (22) LLS9] 
QtCM2]_[UPT], 

COTOP [IFETCH] 



:Get data word 

:Clear entire page table 

:Get aask for enable 

:Where wt keep AC block nunbers 

; Save ausk i n Q reg 

;Latch request to set AC blocks 

;Get old value for AC block nunbers 

;Build Mask for AC blocks 

:lf don't want to set blocks 
:Strip old AC blocks 
:New AC blocks 



; Check for select prev context sect 

:Previous context section 
;Get Bask for section 

;Save previous context section 
: Check for load UBR 



:Get page nuaber 
;Set new UPT 



.NOBIN 



Data In, Pager 

DATA I PAG. or RDUBR 

+ — ♦■ — — ♦• — -+ — -f 

! 70101« I I ! X ! Y I 
•♦■ — ♦- — —t- — — ♦• — —*■ 

2 3 'i 5 6 7 8 910in2131'»l5l6l7l8l9202i22232i»2526272829303l32333'»35 
!\/\/\/ \ / 

I \ / \ / \ / + — User Base adr (page #) 

! I ! + previous context section 

! ! + previous context ac block 

! + current ac block 

+ — 1 
+ — - 1 

.BIN 



DATA I PAG: 

CALL [GET CONTEXT WD] 
[»1B]_[«EM-0P] , 
GOTO [TO «Ea] 

;Hcre to get a "process context word" 
GET CONTEXT WD: 

[UPT]_[W1]. 
CALL [W1 LLS9] 

J [PCS] RAHFILE ADR 

SWAP [W1]_[W1] 

[W1]_Q RAHFILE_[W1] 

J[PR0C REG]_RAnF!LE ADR 

Q.0R.[W1]_[«] 

RAMFILE [W1] 

[wi].orT[mb LH]_B. 
RETURN 



;Get process context word 
;Put in right register 



: Put UPT page nuaiber i n LH 

: Previous context section 
:Put UPT page nunber in RH 

:Get current AC block nunber 
;Add AC blocks to word 



^Writ« the SPT base address 

ilF/FT20PAG 

MSPB: READ [E] 

[hB]_[SPT] . 
GOTOP [I FETCH] 



:Read SPT base address 
ROSPB: [SPT] [HEH-OP] , 
GOTO~[TO MEM] 



:6et data 

;Set SPT base adr. no checking 



;Get information he wants 



:Write CSTmsk register 



wrcstn: read [e] 

j[cst»1sk]_ra«file adr 

[«b]_rahfTle, 
set local, 
cotop [i fetch] 



:Get data 

:Address rainf i 1e 

;Set mask register, no checking 



:Read CSTiask register 
RDCSTn: J[CSTnSK]_RAMFILE ADR 

RAMF I LE_[«E«-OP] , NRFRD/1 , 
GOTO [TO ME«3 



; Address ramfile location 
;Get information he wants 



:Write process use register (CSTDATA) 
WRPUR: READ [E] 

JtCSTDATA]_RAHFILE ADR 
[MB] RAHFILE. 
SET~LOCAL, 
GOTOP [I FETCH] 

:Read process use register (CSTDATA) 
RDPUR: J[CSTDATA]_RA«FILE ADR 

RAMFILE [MEM-OP], NRFRD/1, 
GOTO [TO MEM] 



:Get data 

;Address ramfile location for data 

;Set data word (age) register 



;Address ramfile location for data 
:Get information he wants 



:Write Core status table base address 
WRCSB: READ [E] 

J[CST] RANFILE ADR 
[«B]_RAnFILE, 
SET LOCAL. 
GOTOP [I FETCH] 



;Get data 

;Rainf i 1e adr of CST 

;Set CST register, no checking 



;Read Core status table base address 
RDCSB: J[CST]_RAnFILE AOR 

RAHFILE [HEM-OP], HRFRD/1, 
GOTO [TO «E«] 
.ENDIF/FT20PAG 



; Address Ramf i 1e 

;Get information he wants 



CLRPT: SET USER, CALL [CLR PTE] ;Clear user entry first 
CLEAR USER. CALL [CLR PTE] :Now clear exec entry 
GOTOP [I FETCH] 

CLR PTE: 

[E]_Y. SECTION SELECT. 
SPEC SEL/PAGE TABLE ENTRY 
ZERO_RANFILE: 

ZERO_Y.ALU_RA«FILE. ;C)ear entry 

RETURN 



.TOC " Time" 

^TIMER FLAG goes true 27 times/ffli 1 1 isecond 

I note: 27.*37.-999. note: 37. -^tS 

; note: 27-*1'»8.-3996. note: ll»8.»22i» 

; Ramfile locations TIME & TINE+1 are 72bit u-second counter 

RDTIM: J[27.]_[«E«-OP] 

[MEM-OP] -[TIME] A ; Number of clock ticks this ms 

ZERO [MEM-0P+1],CALL [ROT 1»] 

CALL [ROT li] 

J [TIME BASE+1]_RAMFILE ADR 

2* [MEM-OP] [MEM-OP], 

CALL [RDT~i«] 
RAMF I LE_ [MEM-OP] ;Get low order part of uptime 

J [TIME BASE]_RAMFILE ADR 
[MEM-0P]+[MEM-0P+1]_B. IX_MX 
RAMF I .E_[MEM-OP] , 

IF »JOT~CT [MOVR] THEN [D TO MEM] 
[MEM-0P]+1_[MEM-0P] , 

GOTO [D TO MEM] 

:Shift MEM-OP left 2 then add to MEM-OP+1 
RDT k: i»*[MEM-OP] B ;Shift two left 

[MEM-0P]+[MEM-0P+1] B, 
RETURN 

:Here for WRTIM instruction 
I Write time base register 

IrTIM: read [E] :Get high order bits 

J [TIME BASE]_RAMF I LE ADR 

[MB]_Y,ALU RAMFILE. :Write high order bits 

CALL [READ NEXT] 
J [TIME BASE-i-1] RAMFILE ADR 
[MB]_RAMFILE, 
SET~L0CAL, 
GOTOP [I FETCH] 



;Here for RDINT instruction - read time interval register 

RDINT: JCTIHE INTERVAL] RAMFILE ADR :Address ramfile location he wants 

RA«F I LE_[«EM-OP] , NRFRD/ 1 

U*[MEM-OP] B, ;Di splay as u-seconds 

GOTO [TO MEM] 

;Here for WRINT instruction - write interval register 
WRINT: READ [E] 

J [INTERVAL COUNTER] RAMFILE ADR : Start interval counter again 
[MB]+1_F,B SEL/MB, 

LRS F B,0_SION 0_QION 
[MB]+1_F.B SEL/MB. 

LRS F_B,0_SI0N 0_QION, 

ALU_RAMFILE 
J[TIME !NTERVAL]_RAMFILE ADR :Save for restarting counter 
[MB] RAMFILE. 

SET~LOCAL. 

GOTOP [I FETCH] 



.TOC " Halt Status Block" 

URHSB: READ [E] 

J[HSB]_R.*H 'LE ADR 
[MB]_RAMFI,.^, 
SET LOCAL, 
GOTOP [I FETCH] 

RDHSB: J[HSB] RAMFILE ADR 

RAMFILE_[MEM-0P],NRFRD/1, 
GOTO [TO MEM] 



;Get new value for HSB 

; Address ramfile 

;Put new value in ramfile 



;Address of halt status block 



.TOC 



per 



.NOBIN 

Status word in ramfile 

2 3 *» 5 6 7 8 9101 
\ CR / 



1213' ^15161718192021 22232i»25262728293031 32333435 



! 



+ — SR6 
+ — SR7 
+ ™ CR7...CR0 
+ — Half duplex. 
+ DDT mode. 



\ / I ! ! 

I ! ! 

! ! ! 

! ! ! 

! ! ! 

I ! ! 

I ! ! 

! ! ! 

! ! 

! ! 

! + 



! I 



\ RCV / \ / 

! ! ! ! + -— Pi chnl 

!!!+—- xof flag 

! ! + xof enable 

! + rev done 

+ rev I nt enable 

+ xmt done 

xmt enable 

+ dataset change flag 

+ data set change enable 

Nxm or mem err on rev 



+ Nxm or mem err on xmt 

+ -— flag for TTYRCV BITS 
+ protocol 



Hode word in ramfile 

01 2345678 9101 1121314151617181920212223242526272829303132333435 

\/\/\ /\ / 

! ! + — MRI7-MRIO + -— CRC seed 

! + — MR25-MR20 

+ reserved 

Syn word in ramfile 

01 2345678 91011121314151617181920212223242526272829303132333435 

\ / \ / \ / 

! ! + Synl char 

+ DLE char + Syn2 char 

CRC word in ramfile 
012345678 91011121314151617181920212223242526272829303132333435 
\ / \ / 

+ Incoming CRC + Outgoing CRC 

Transmit and receive header words 
012345678 91011121314151617181920212223242526272829303132333435 
\ / \ / 

+ reserved + phys adr of current header 

Transmit and receive byte pointer words 

01 2345678 91011121314151617181920212223242526272829303132333435 

\ / \ / \ / 



! 

+ byte count 



.BIN 



I + byte number 

+ — phys adr of byte word 



.IF/DEBUGTTY 
JtDTTY: 

[E]_Y,Y_TTY ADR ; Address register 

PCI_ALuTy_[MEM-OP] ;Read register 

PcTalU.Y [Wl] ;Get 2nd half 

SWAP [W1]I[MEM-0P LH], 
GOTO [TO ACQ] 
.END IF/DEBUGTTY 



:Here to reset a PCI line 

.IF/FTTTYR 

RESET PCI: 

[K -1.0]6[W6]_Y,IX MX 
J[200]^[W5] 
[W6]_Y,i'_RAMFILE ADR, 

IF NOT CT [MZ] THEN [RPCI 1] 
J[1»200]_[W1] 
it*[W1]_B 

SWAP [W1] [W5 LH] 
RPCIl: [W5]_Y,ALU RAMFILE, 
CALL [SET~PCI CR] 
Cw6] + l_F,F_(i_Y,Y_RAMFILE ADR, 
J[5]_CTR 
ZER0_CW1 RH] 
RAMFILE [W1 LH], 
CALL [W1_RAMFILE] 
RPCI 2: Q+1_F,F_Y,Y_RAMFILE ADR 
ZERO_Y,ALU_RAMFILE, 

LOOP [RPCI 2] 
;GOTO [SET USART MODE] 
RETURN 
•END IF/FTTTYR 



; Check for CTY 
;Transmit done 
;Adclress status word 

;For RTS & DTR 

;Put in LH 

; Update status word 

; Address of Mode word 

; CI ear CRC seed 
;Get mode word 

;Address next ramfile word 
;Zero next location 



;Here to set mode register in USART 1 
J Call with [WSl'line number , ,adr of 
|eT PCI NODE: 

J[A1IA0]_[W1] 
ZER0_[W2],CALL [WR PCI] 
[W6]+l Y,Y_RAMFILE ADR, 

CALL TrAMFILE_W1] 
SWAP [W1]_[W1] 
J[A1]_[W2] 
SWAP [W6] [W3], 

CALL [SUM ItO] 
[W1]_Y,ALU_MR2 
J[A0]_[W2J~ 
J[LNXSYN]_CW1] 
[W6] + [W1]_Y,Y_RAMFILE ADR 
RAMFILE [Wlj.NRFRD/l, 

CALL [SUM 1»0] 
CALL [SUM 1] 
[W6]_Y,Y_RAMFILE ADR 
RAMFILE_CW5],NRFRD/1, 

GOTO [SET PCI CR] 



ine 

ramf i 1e 1 ine block 



Address bits for CR 
Clear command register 
Address mode word 
Get mode word from ramfile 
Put mode words in RH 
Makes Al for mode register 
Get 1 ine number 

write MRl 6 MR2 
Write M8626 copy of MR2 
Set AG for SYN1/SYN2/DLE 
Offset for syn word 
Address ramfile word 
Get synchs and OLE chars 
Write SYN1, SYN2 registers 
Write Die register 
Address ramfile copy of CR 
Set CR according to r'imfile 



Here to set 2651 mode or syn registers 
Call with MR2, MRl as low order 8blt bytes in Wl, 

and with Al or AO in W2 and line number in W3 

SUM itO: [W23+[W3] Y,Y_TTY ADR ;Address line and mode registers 

[Wl] Y,ALU_PCI ;Write MRl/SYNl 

PJUM 1: Jt*[wT]_B, ;Shift left 2 at a time 

* J[3]_CTR 

SUM 2: i»*[Wl] B, ;Shift left 2 at a time 

LOOP ISUM 2] ; 10 all together 

SWAP [W1]_[W1] 

[Wl] Y,ALU_PC;, -.Write MR2/SYN2 

RETURN 



;Here to 
SET PCI 

SPCR2: 



SPCR2: 



set PCI CR 
CR: 

SWAP [W5]_[W2],J[i».]_CTR 
'♦*[W2] B.LOOP [SPCR2] 
SWAP [W2]_[W2] 
ROL [W5] [W2],J[8.]_CTR 
ROL [W2]~[W2],L00P [SPCR2] 
[K -1 .0]&[W6]_Y,IX_MX 
J[A1!A0] [Wl] 

SWAP [W6l_[Wl] F_Q,B[W1]_F 
Q+[W1] Y,Y TTY ADR, 

IF CT~[MZ] THEN [SPCR?] 
[W2]_Y,ALU_PCI. 

RETURN 
;Here when writing CR for CTY 
SPCR7: J['»]_[W1] 

[W1].0R.[W2]_Y,ALU PCI, 

RETURN 



;Copy CR 

;Shift left 10 places 

;Right justify CR 

;Copy CR from status word 

;Put CR in W2 rh 

; Check for CTY 1 ine 

: Address bits for CR 

;Get 1 ine number 

: Address command register 

;Write CR 



;Bits we always leave on in CTY 
;Write CR 



;Here for a transmitter interrupt for a 
; call with adr of line status register 
INT XMT: 

[K -1.0]i[w6]_Y, 
IF NOT CT [IZ] THEN [XINTIO] 

J[CMDFLG]_RAMFILE ADR 

RAMFILE_[W1],NRFRD/1 

J[CMRTKR] RAMFILE ADR 
,IF/FTCRAM 

RAHFILE [W23.NRFRD/1 

[W2]_[W2] . 
IF CT [IZ] THEN [XINTO5] 
.ENDIF/FTCRAH 
.IPNOT/FTCRAM 

RAMFILE_[W2],NRFRD/1. 
IF CT [IZ] THEN [XINT05] 
.ENDIF/FTCRAM 

J[F.S]_[W2] 

[W1]&[W2]_Y, 
IF NOT CT [IZ] THEN [XINT95] 

CALL [CMB NXT] 

CALL [XMT CHR] 

J[CHRPTR]_RAnFILE ADR 

RAHFILE [W1].NRFRD/1 

j[CHRTKR]_RAHFILE ADR 

RAMFILE [W2],NRFRD/1 

[W1].X0R.[W2]_Y, 
IF CT [IZ] CALL [CMRBUF FLUSH] 

GOTO [CMDC X] 

XINTO5: [BITi»]*[Wl]_Y. 

IF CT [IZ]~THEN [XINT95] 



PCI line 

in W6, and status in W3 

;See if this is the cty 
; Branch if not cty 
; Address console flags 

;Get taker for response buffer 

; I f no data stop transmitter 
;Let latches go 



; I f no data stop transmitter 

;Xoff flag 

;lf Xoff stop typing 

;Get next byte 

;Type it 

;Get response putter 

; Address response taker 

: Check for buffer empty 

: Process waiting commands if any 

;(F.USR) Exec mode*shut off xmtr 



:Here because !ine is in user mode 
XINTIO: 

J[LNXXHO] [Wl»] 
.IF/FTDDTM 

[W53_Y. 
IF NOT CT [IN] THEN [XINT30j 



;Offset for header 



: Check for OCT mode 



;Here because line is in DDT mode 

[W6]+[Wi»] + l_Y.Y_RAHFILE ADR 

,IF/FTCRAM 

RAHFILE [W1].NRFRD/1 

[wi]_[w'i]. 

IF CT [IZ] THEN [XINT95] 
.ENOIF/FTCRAH 
.IFNOT/fTCRAM 

RAHFILE [WI],NRFRD/1. 
IF CT [IZ] THEN [XINT95] 
.ENDIF/FTCRAH 

ZERO_Y.ALU_RAMFILE, 

CALL [XHT CHR] 
CALL [SET XDN] 
GOTOP [PCI INT CLR] 
.ENDIF/FTDOTH 



; Address ramfile word 

:Get next char to type 

:Let latches go 

; If nothing shut down 



;Get next char to type 
: If nothing shut down 

;Have sent char now 

; Type char 

:Set done flag in status word 



;Here because line is not in DDT mode 

XINT30: J[JiOO]_[Wl] ;Wi 11 become CRO 

SWAP [W1] [W1] :nakes CRO 

Cw5]&[wi]Iy, 

IF CT [IZ] THEN [XINTSS] 
;Here to get next byte from buffer 

J[XNT TTY PF] [W1] 

CALL [SET PF RCOVR] 

J[2hB nASK]_RANFtLE ADR 

RAnFILE_[W2T.NRFRD/1. ;Get 2k bit mask 

CALL [NXT RX WRD] 

ROL [PMA] [W1],IX_HX ; byte fab. a_«N 

ROL [Wl] Iwi], :Byte #ab. B_fW 

IF NOT CT [MN IX «X] THEN [XINTyO] 

IF NOT CT [«N] THEN [XINT723 ; Check for byte 2 or 3 

GOTO [XINT73] 
XINT70: SWAP [«B]_[«B] , ;Enter here for byte 

IF CT [MN] THEN [XINT73] ; Check for byte or 1 

XINT72: 2*[MB]_[MB],J[3J CTR ; Enter here for byte 2 

XINT7'*: 1»*[MB]_B,L00P [x7NT7't] 

SWAP [HB]_[MB] ; Enter here for byte 1 

XINT73: [MB]_[W1],CALL [XMT CHR] ; Enter here for byte 3 

IF NOT CT [UZ] THENP [PCI INT CLR] ; Check for buffer exhausted 

XINT93: CALL [SET XDN] ;We are done with buffer 

J[LNXXHD]_[Wi»] :Got clobbered so restore 

[W6]+[Wi»]_Y,Y_RAHFILE ADR ;Addr RF copy of curre:it hdr adr 

RAHFILE_[PMA]7nRFRD/1, ;Get adr of header 

CALL [CHNG2] ; write pointer back 

CALL [GET NXT RX HDR] ;Get header for next buffer 

IF CT [UOVR] CALL [CLR XGO] ;We have now stopped 

PCI INT CLR: 
.IF/DEBUG3 

J [POOP FLAG]_RAMFILE ADR 

ZERO Y,ALU_RAh.-ILE 
.ENDIF/DEBU63 

ZERO [W1].CALL [SET t RCOVR] 

[PXCT]_[PI REG],Y_2y -: o.ATUS, ;Restore previous level 
GOTOP [CONSOLE] ~ :This isn't really an int 

;Here because memory error reading transmit buffer 
XINT91: ROR [BIT17]_[W1] ;Need to make a bit 19 

ROR [Wl] [wT] ;nake a bit 19 

[W1].0R.IW5]_B, :Set xmt err bit 

GOTO CXINT93] ; and stop transmitter 

;Here when page fail (^nxm or mem fault) on xmt 
XMT TTY PF: 

ROR [BIT17]_[W1] :«ake a bit 18 

ROR [W1]_[W1] :nake a bit 19 

[W1].0R.[W5]_B, ;Set xmt mem err flag 

CALL [SET XDN] ; And flag transmitter stopped 

CALL [CLR XGO] ;Clear CRO in status word 
:Here to stop the transmitter 

|lNT95: CALL [CLR PCI TXEN] :Di sable transmitter 
^ GOTOP [PCI INT CLR] 



H«re to get next word from transmit 
Call with LNXXHD or LNr.RHD in Wit & 
Returns with word In NB 

Returns UZ if count expires 
NXT RX WRD: 

[W6]+CWl»3-»-(_F,F Y,Y_RAMFILE ADR 
RAMFILE [PHA].NRFRD/1 
[PnAj-[W2]_A, 
ALU_RANFILE 
CW2]BAR&[PnA] Y,IX_UX 
ROR [PHA] [PnA] 
ROR [PMA]~[P«A], 
GOTO [UNMAPPED READ 0] 



or receive buffer 
24b mask in W2 



; Address byte pointer 

:Get byte header 

: I ncrement pointer, decrement count 

; save updated byte pointer 

;Set UZ if count has expired 

; Address of word which has byte 

;Divide by 2 

; get word 



;Here to get next receive or transmit header 
I CALL with LNXXHD or LNXRHD in W1 
|eT NXT RX HOR: 

[W6]-l-[Wi»] Y.Y RAMFILE ADR 
.IF/FTTTYSB 

RA«FILE_[P«A],MRFRD/1 , 
CALL [UNKAPPED READ 0] 
[BIT17]&[MB]_Y, 
IF NOT CT [IZ] THEN [SET UOVR] 
.EMD IF/FTTTYSB 
. I FMOT/FTTTYSB 

RAHF I LE_[P«A] ,NRFRD/1 
.EMD IF/FTTTYSB 

[PMA]+2_B,MEM START READ, 
CALL [UNMAPPED READ] 
[W6]+[W4]_Y,Y RAMFILE AOR 
[MB] [PnA] , ALU_RAMF I L E , 
IF CT [IZ] THEN [SET UOVR] 
GET RX HDR: 

[PMA]+1_[PMA],ME« START READ, 
CALL [UNMAPPED READ] 
J[21»B MASK] RAMFILE ADR 
RAMFILE_[W1],NRFRD/1 
[W1]BAR6[MB]_F,F Y, 

IF CT [IZ] then" [SET UOVR] 
[W6]+[Wi»]+1 F.F Y.Y RAMFILE AOR 
[MB] RAMFILE.0_U0Vr7 
RETURN 



; Address ranf i 1e 

;Get address of header 

;Get header status 

; Check for stop on buffer 



;Get adr of header 

; Makes adr of next header adr 

: Address LNXXHD or LNXRHD 
;Save adr of new header 

;Get byte pointer for new header 



;Get mask for count 
: Check count field 



:Save new pointer 



;Here to transmit a char on a 2651 li 
; Call with [W6]-1inc number., adr of 
XHT CHR: 

SWAP [W6] [W23 

[W2]_Y,Y_TTY ADR 

[W1]~Y,ALU PCI, 
RETURN 



ne 

ramfile line blocli, char in W1 

:Put line number in RH 

;Address line and mode registers 

;Transmit character 



:Here to clear LS.RGO in LNXSWD 
CLR RCO: 

J[2000]_[W1] 

[W6]_Y.Y_RA.'nFILE ADR, 
GOTO [CLR RXGO] 



;Bi t to clear 

;Address the status word 



;Kere to stop transmitter 
CLR XGO: 

[W6] Y.Y RAHFILE ADR 

J['»00]_[W1] 
CLR RXGO: 

SWAP [W1]_[W1] 

[W1]BAR&[W5]_B, ALU_RAMF I LE , 
RETURN 



: Address the status word 
:Wi II become CRD 

;nake CRO 

;Write updated status 



:Here to 9et LS.RDN in LNXSWD 

SET RDN: 

J [LS.RDN] [W1] 
[W6]_Y,Y_RAMFILE ADR, 
GOTO [W1!W5_RAMFILE] 

. If/FTTTYF 

;Here to clear LS.RDN in LNXSWD 

CLR RDN: 

J [LS.RDN] [W1] 
[W6]_Y,Y_RAMFILE ADR 

W1BAR&W5_RAnFILE: 

Iwi]BAR&[W5] B.ALU RAMFILE, 
GOTO [SET PROC REG] 

.END IF/FTTTYF 



;Bit to set 



;Bit to set 



;Write updated status 



;Here to set LS.XDN in LNXSWD 

SET XDN: 

J[LS.XDN] [Wl] 
[W6]_Y,Y_RAMFILE ADR 

W1!W5_RAMFILE: 

[W1].0R.[W5] B,ALU_RAMFILE. 
GOTO [SET PROC REG] 

.IF/FTTTYF 

:';ere to clear LS.XDN in LNXSWD 

CLR XDN: 

J[LS.XDN]_:WI] 
[W6]_Y,Y RAMFILE ADR 
GOTO [wTBARiW5_RAMFILE] 

.END IF/FTTTYF 



;Bit to set 



;Write updated status 
; Adjust int requests 



;Bit to set 



;Here to set TXEN • transmit enable in a PCI 
^ call with [W6] - line #..x 
I clobbers Wl & W2 
SET PCI TXEN: 

[BITI73+I [W2], ;Get bit for TXEN 

CALL [RD PCI CR] 
[WI].0R.[W2] Y,ALU_PCI, ;Set bit 
RETURN 



Here to clear TXEN • transmit enable in a PCI 
call with [W6] « line #,,x 
clobbers Wl S W2 
CLR PCI TXEN: 

[BITI7]+1_[W2], ;Get bit for TXEN 

CALL [RD PCI CR] 
[W2]BAR6[W1]_Y,ALU_PCI, ;Clear bit 
RETURN 



Here to set RXEN - receive enable in a PCI 
call with [W6] - line #,,x 
clobbers Wl & W2 
SET PCI RXEN: 

J[RXEN]_[W2] ;Get bit for RXEN 

CALL [RD PC! CR] 

[W1].0R.[W2]_Y,ALU_PCI. ;Set bit 
RETURN 



there to clear RXEN * receive e 
. call with [W6] « line #.. 

: clobbers Wl & W2 

CLR PCI RXEN: 

J[RXEN]_[W2] 
CALL [RD PCI CR] 
[W2]BAR6[WI] Y.ALU PCI, 
RETURN 



enable in a PCI 

X 



:Get bit for RXEN 
: CI ear bit 



:Here to read PCI SR register 
RD PCI SR: 

J[A0]_[W1] 

SWAP [W6] [Wl] F Q,B[W1] F, 
GOTO [RDPCI2] 



; Address of status register 
;Get 1 ine number 



:Here to read PCI CR register 

RD PCI CR: 

J[A1!A0]_[W1] 
:GOTO [RD PCI] 



;Bits to address command register 



;Here to read a PCI register 
KJ PCI: SWAP [W6] [Wl] F_Q,B[W1]_F 
RDPCI2: Q+[W1]_Y,Y_TTY ADR 
PCI ALU,Y_[WI], 
RETURN 

fhere to write a PCI register 
; Call with Ax in Wl. and data in W2 
WR PCI: SWAP [W6] [Wl] F Q,B[Wl]_F 
Q+[W1]_Y,Y_TTY ADR 
[W2]_y7alU_PC I .RETURN 



;Get I ine number 
; Address register 
;Read register 



;Get 1 ine number 
:Address register 
;Write register 



;Here for a receiver interrupt for a PCI 
; call with adr of line status register 
INT RCV: 

J[LNXRHD]_[Wi»] 

SWAP [W6]_[W1] F Q.ZERO F, 

CALL [RDPCI2] 
J[377]_[W3] 
[W1]6[W3]_B, 
CALL [RD PCI SR] 
J[70]_[W2] 
[W2]&[W1]_B. 

IF CT [IZ IX_UX] THEN [RINT2] 
J[1»00]_[W2] 
[W2].0R.[W3]_B 
SWAP [W1]_[W3 LH] 
RINT2: [K -1.0]6[W6] Y, 

IF NOT CT [IZ] THEN [RINTIO] 
J[177]_[W2] 

[W3]&[W2]_F,F_Q FJC34] [W2] 
J[CMDFLG]_RA«FILE ADR 
Q-[W2]_Y, 

IF CT [IZ] THEN [CNTRL BKSLSH] 
RAHFILE Y,Y_[W2] 
[BITi»]6lw2]_Y, 
IF CT [IZj THEN [CONSOLE CHAR] 



1 ine 
in W6. 



and status in Wl 



Offset for receive header 

Get 1 i ne number 

Read receiver register 

Mask to strip extraneous bits 

Strip extraneous bits 

and get SR 
Mask for error bits 
Leave only error flags 

Error flag 

Add flag 

Add flags 

See if this is the cty 

Branch if not cty 
Mask to strip parity 
^\ char 

Address console flags 
Check for typing '^X 

Get console flags 
(F.USR) Branch if user mode 
Treat as CTY input 



;Here for a receive interrupt except for CTY in Console mode 

; received char in Wt 

RINTIO: 

.IFNOT/FTDDTM 

[Wi»] + [W6]_Y,Y RAMFILE ADR 
•ENDIF/FTDDTM 
.IF/FTDOTM 

[W5]_Y,IX_MX 

[Wi«]+[W6]_Y,Y_RAMFILE ADR, 
IF NOT CT [«N] THEN [RINT30] 



:Address char word 



; Check status reg 

; Address char word 

; Branch if not DDT mode 



;Here because line is in DOT mode 
.IF/FTCRAM 

RAMFILE_LW2],NRFRD/1 

LW2]_[W2] . 
IF CT [IZ] THEN [RINT12] 
.END IF/FTCRAM 
.IFNOT/FTCRAM 

RAMFILE_Y,NRFRD/1, 
IF CT [IZ] THEN [RINT12] 
•END IF/FTCRAM 

J[l»20] [W2] 

[W2].0R.[W1"'_B 
RINT12: SWAP [Wl]_[Wi» LH] 

[Wit] RAMFILE 

CALL~[SET RDN] 

GOTOP [PCI INT CLR] 
.ENDIF/FTDDTM 



; Check for already holding 
;Let latches go 



;Check for already holding 



;Overrun error 
;Add error flag 
:Put flags in LH 
;Save character 
;Set receiver done 



IX_MX] THEN [R 
THEN [P. INT? 2] 



;Here because line is not in DDT mode 
RINT30: J[2000]_[W1] 

SWAP [wT] [W1] 

Cw5]&[wi]Iy. 
if ct [iz] then [rint99] 

:Here to put next byte into buffer 

J[RCV TTY PF]_[W1] 

CALL [SET PF RCOVR] 

J[2'»B nASK]_RANFtLE ADR 

RAMFILE_[W2],NRFRD/1, 
CALL [NXT RX WHO] 

J[0777]_[W1] 

ROL [PMA] [W2] , I X MX 

ROL [W2]_TW2], 
IF NOT CT CMN 

IF NOT CT [MN] 

GOTO [RINT73] 
RINT70: SWAP [W3]_[W3] 

SWAP [W1]_[W1], 
IF CT [MN] THEN [RINT73] 
RINT72: 2*[W3] [W3] 

2*[W1]I[W1],J[3]_CTR 
RINT7i.: 4*[W3]_B 

1»*[W1]_B,L00P [RINT7^] 
RINT73: [W1]BAR&[NB]_B 

[W3].0R.[MB]_B, 
CALL [UNMAPPED WRITE] 

IF NOT CT [UZ] THEN [RINT99] 
RINTS3: CALL [SET RON] 

J[LNXRHD]_[Wi»] 

[W6]+[Wi»]_Y,Y_RAHFILE ADR 

RAMFILE [PMA]TnRFRD/1, 
CALL [CHNG2] 

CALL [GET NXT RX HDR] ;Get 

IF CT [UOVR] CALL [CLR RGO] 
RINT99: GOTOP [PCI INT CLR] 



;Win become bit RXEN 
:nake RXEN 



;Get 2i> bi t mask 
; Get word for char 
;Mask for data 
;Byte #ab, b_MN 
;Byte #ab. a MN 
INT70] 

; Check for byte 



2 or 3 



; Enter here for byte 
;Swap mask also 
: Check for byte or 1 
; Enter here for byte 2 



Shift mask also 
Enter here for byte 3 

Clear slot for byte 
Add new byte 

Save in buffer 
Check for buffer exhausted 
We are done with buffer 
Got clobbered so restore 
Addr RF copy of current hdr 
Get adr of header 

wr i te pointer back 
header for next buffer 
We have now stopoed 
Dismiss interrupt 



adr 



;Here because memory error on receive 
RINT9I: ROR [BIT17]_[W1],J[1]_CTR 
RINT92: ROR [Wl]_[Wl] .LOOP [RINT92] 
[W1].0R.[W5] B, 
GOTO [RINT93] 



;Need to make a bit 20 
;Rotate to bi t20 
;Add rev mem err flag 
; and stop transmission 



;He''e when page fail (~nxm or mem fault) on rev 



RCV TTY PF: 
ROR 



[BIT17]_[W1],PUSH J[1]_CTR 
ROR [Wl] [WO.RFCT 
[W1].0R.IW5] B, 
CALL [SET RON] 
GOTO [PCI INT CLR] 



:Make a bit 18 

;Make a bit 20 

;Set rev mem err flag 

; And flag transmitter stopped 



:Here for a dataset change interrupt 
INT DSC: 

CALL [RD PCI SR] 
J[300]_[W2] 
[W2]&[W13_B, 
CALL [SWAP W2_W2] 
CW2]6[W5]_Q. 
CALL [SWAP W1_W1] 
Q.XOR.iwi] F,F Y, 

IF CT [IZJ THEN [IDSC3] 
[W2]BAR&[W5] B 
J[4000]_[W2 RH] 
2*([W2] + [W2 RH])_B 
[W2].0R.[W5]_Y, 
ALU_RAMFILE 
IDSC3: GOTOP [PCI INT CLR] 



for a PCI 1 ine 

; Get status register 

:nask for DSD & DCD 

; Leave only new DSD&DCD in W1 

;Put mask in LH 

;Put only DSD & DCD in Q 

;Put new status in LH 

; Check for change 

;C1ear old status bits 
;Get bit to make dataset change 
;Makes dataset change bit 
:Set bits 

;Dismiss interrupt 



SWAP W1_W1: 

"swap [W1]_[W1], 
RETURN 



SWAP W2_W2: 

SWAP [W2] [W2], 
RETURN 



:Here to accumulate CRC for character 

: call with [W1] char 

I [W2] CRC so far 

: CW3] CRC seed 

.IF/FTCRC 

CRC CALC: 

[W1].X0R.[W2]_F,F_B, 
J[7]_CTR 
CRC 2: [W2i F.F LRS [W2] SIOO_MC 

IF CT [«C] THEN [CRC 33 

LOOP [CRC 2] 

RETURN 
CRC 3: [W3].XOR.[W2]_F,F B, 
LOOP [CRC 2] 

RETURN 
.END IF/FTCRC 



.TOC " External" 

10 EFA: IF [USER] CALL [CHECK 10 OK] :Give users HUUO's 
DISPATCH [DISPATCH 2] 



TIDE: [AC-OP] 6 [MEM-OP] Y, ; Check for need to skip 

IF NOT CT [IZ] THENP [1 FETCH], 
SET LOCAL 

[PC]+1 [PC RH], ;Skip 

GOTOP~[IFETCH] 

;TIOEB: 



TION: [AC-OP] & [MEM-OP] _Y, ; Check for need to skip 

IF CT [IZ] THENP [I FETCH], 
SET LOCAL 

[PC] + 1_[PC RH], ;i>k:p 

GOTOP [I FETCH] 

;TIONB: 



WRIO: RAMFILE [MEM-OP] ,NRFRD/1 , 
GOTO [WRIO.l] 

WRIO.l: CALL [WRIOX] 
SET LOCAL, 
IF NOT CT [UOVR] THENP [l FETCH] 



GOTOP [10 PF] 



;Win an 10 page f ai 1 



;Strip extraneous bits 
; Validate 10 address 
;Put out 1 address 



;Perforni transfer 



;Here to to an 10 write 

; Call with data in [MEM-OP] and adr in [E] 
; returns with UOVR if illegal 
WRIOX: [K 7777.-1]&[E]_B.l_UOVR, 
CALL [VAL 10 ADR] 

[E]_[PMA], START 10 WRITE. 
IF CT [MN] THEN [WRIO TTY] 

[MEM-OP]_[MEM-OP] ,ALU_IO 

0_UOVR,MEM HOLD, 
IF [NO BUS ERROR] RETURN 
.IFNOT/FTCKBP 

IF [NOT MEM EXISTS] THEN [SET UOVR] 

IF [NOT MEM FAULT] RETURN 
.ENDIF/FTCKBP 

1_U0VR, RETURN ;Set error flag 



;Here to do an 10 write to a TTY register 
WRIO TTY: 

[E]-[W1]_F,F_Y, 

IF CT [IN IX_MX] RETURN 
RAMFILE_[W3], 

IF CT [MZ] THEN [WRIOTM] 
[MEM-OP] [W5] , ALU_RAMF I LE , 
0_UOVR 

[W2]6[E]_F,F_Q_Y, 
IF CT [IZ] THEN [WRIQTO] 
.IF/FTTTYF 

J[LNXXCHR] [W?] 
Q- [W2] F , F~Y , I X_MX 
[wnBAR&[W6]_B, 
IF CT [IZ] THEN [WRIOT5] 
•END IF/FTTTYF 

Q+[K -1]_F,F_Q_Y, 

IF CT [IZ] THEN [WRI0T12] 
Q+[K -1]_F.F_Q_Y, 
IF NOT CT [IZ] RETURN 
WRI0T12: 

GOTO [SET PCI MODE] 



;Get old contents of word 

;Wr i te word 

;Test which word was written 
; Branch for wrote status reg 

; Offset for xmt char 
;See if wrote xmt char 
;Make adr of line block 



;Wrote Synch reg 



;Here because wrote status register 
^RIOTO: 
IFN0T/FT7PI 

J[6]_[W1] 

[W n& [MEM-OP] _Y, I X_NX 

ROR [W1]_[W1]. 

IF NOT CT [MZ] THEN CWRIOTl] 
[W1]6[MEM-0P]_Y, 
IF NOT CT [12] THEN [MUUO] 
WRIOTl: 
.ENDIF/FT7PI 
.IF/FTTTYR 

J[1»000] [Wl] 
ROL [WlI_[Wl] 
[W1]&[MEM-0P]_Y, 
IF NOT CT [IZ] THEN [RESET PCI] 
.END IF/FTTTYR 

J[WRIO TMP]_RAMFILE ADR 

[W5] . XOR . [W3]_F , F_B, ALU_RAMF I LE 

S SEL[W3]. 

IF [B BIT 9] CALL [CHNG TXEN] 
J [BIT?] RAMFILE ADR 
RAMFILE~[W1],NRFRD/1 
[W1]&[W3]_Y. 

IF NOT CT [IZ] CALL [CHNG RXEN] 
CALL [SET PCI CR] 
0_UOVR, 
GOTO [SET PROC REG] 

CHNG RXEN: 

J[LNXRHD]_[W1»] 

[W6] + [Wi»]_Y,Y_RAMFILE ADR, 

1 UOVR 
[WT]6[W5]_Y, 

IF NOT CT [IZ] THEN [SET RXEN] 
GOTO [CHNG2] 



;Mask for PI channel 

;Make mask for bit 35 

;Ci.eck for putting on channel 1 
; Putting on chnl ^ illegal 



;Make a bit 23 from this 

; Makes a bit 23 

; Check for doing Reset 



; Address temp location 

;Find flags which changed 

; Check for transmit enable changed 

; Address a bi t 7 

;Get a bit 7 

: Check for RXEN changed 

;Set CR according to status word 

: F 1 ag WR t won 

; Be sure ints are right 



;0ffset for receive header 
; Address ramfile copy 
; of current hdr adr 
; Check for went off or on 



CHNG TXEN: 

J['»00]_[W1] 
SWAP [W1]_[W1] 
J[LNXXHD] [WA] 
[W6]+[W4]"y,Y_RAMFILE ADR, 

1 UOVR 
[wT]6[W5]_Y, 

IF NOT CT [IZ] THEN [SET TXEN] 
CHNG2: [W6] + [Wi»]+l_F,F Y.Y RAMFILE ADR 
RAMF I LE_[hb] ,NRFRD/T, 

CALL [ZERO_RAMFILE] 
[PMA]+1_[PMA], 

CALL [UNMAPPED WRITE] 
J[WRIO TMP]_RAMFILE ADR 
RAMFILE_[W3],NRFRD/1, 

RETURN 



;Make a bit 9 " CRO 
;Offset for transmit header 
; Address ramfile copy 
; of current hdr adr 
; Check went on or off 

;Address ramfile copy of pointer 
;Get ramfile copy cf pointer 
;Clear ramfile copy 
;Make adr of pointer in header 



;Get changed bits back 



SET RXEN: 

RAMFILE_[PMA], 

IF NOT CT [IZ] CALL [GET RX HDR] 
IF CT [UOVR] CALL [CLR RGO] ;ln case lost 



;Get current header adr 



GOTO [RSTVTM] 

SET TXEN: 

RAMF « LE_[PHA] , ;Get adr of current header 
IF NOT~CT [IZ] CALL [GET RX HDR] 

IF CT [UOVR] CALL [CLR XGO] ;ln case lost 

RSTWTM: J[WRIO TMP] RAMF I Lc ADR ; Address tmp loc again 

RArtF I LE_[W3],NRFRD/1, RETURN ;Restore W3 and exit 



.IF'fTTTYF 

;Here because wrote XMT char word 

WRI0T5: CALL [SET PCI TXEN] 
';W6]_Y.Y_RAMFILE ADR 
RAMFILE_[W5].NRFRD/I , 
GOTO [CLR XDN] 

.ENDIF/FTTTYF 



;Be sure xmtr going 
;Address status word 

;Clear transmit done i nt flag 



;Here to write TTYRCV BITS 
WR I OTM: [MEM-OP]_Y , ALU_RAMF I LE , 0_UOVR , 
RETURN 



BSIO: [AC-CP] .OR.[MEM-OP]_B, 
GOTOP [WRI0.1] 



;Add new bits we want 



;BSICB: 



BCIO: [AC-OP] BAR6[MEM-0P]_B, 
GOTOP [WRIO.l] 



:Clear bits we don't like 



;BCIOB: 



.TOC 



"Trap Handling" 



;Here to store nothing 
TO NOWHERE: 

SET LOCAL, 
IF [NOT TRAP] THENP [I FETCH] 

;GOTOP [TRAP] 



;Here at end of instruction to see if 
TRAP: J[0600]_[W1],CLEAR TRAP 

SWAP [WI]_[P«A],SET LOCAL, 

IF [NOT PAGED] THENP [I FETCH] 
[PC FLAGS]6[PMA] B, 

IF CT [IZ] THENP [ I FETCH] 
PUSH J[10.]_CTR 
ROL [PMA] [PnA],RFCT 
J['»20]_[wT] 
[W1] + [PNA]_B, 

CALL [UIE READ] 
GOTO [I FETCH 4] 



need to trap 
;Trap flags 



; Check for need to do a trap 



;Do instruction 



UIE READ: 

IF [EXEC] THEN [UIE R2] 
[UPT]+[PMA]_B,MEM START READ, 
GOTO [UNMAPPED READ] 
UIE R2: [EPT]+[PnA]_B,MEM START READ, 
GOTO [UNMAPPED READ] 



SET 0VIT1: 

J[i»002]_[WI],SET TRAP 
SWAP [W1]_[W1], 
GOTO [6i»*wnPCF] 



:Here to set overflow and trap 1 



SET TRAP 1: 

J[200]_[W1],SET TRAP 
SWAP [Wl] [Wl], 
GOTO [WiTpCF] 



;Set trap 1 

:8it 28 

: Becomes a bit 10 



SET TRAP 2: 

J[400]_[W1],SET TRAP 
SWAP [W1]_[W1], 
GOTO [WIIPCF] 



;Set trap 2 

:Bit 27 

; Becomes bit 9 



61»*W1IPCF: 

i»*[WI]_B,J[l]_CTR 
SPCF 2: i»*LWl] ii;,LOOP [SPCF 2] 
WIIPCF: [W1].0R.[PC FLAG5]_B, 
RETURN 



;Shift bits left 
;Keep shifting bits 



• TOC 



"INTERRUPT HANDLING' 



^If this 

i If not 

CHK INT: 



is a clock interrupt will return, but may clobber W2-W3 
clock will return to IFETCH 



[K -l]+[TIME]_B.IX_rtX, ; Assume 

MEM HOLD, ; Don't 

GRANT INTERRUPT. ; Grant 

IF [NOT TIMER FLAG] THENP [SKIP CHAIN] 

;Here for an interrupt on level ... clock 
[PI REG]_Y,Y_291^ STATUS. 
MEM HOLD. 
IF NOT CT [MZ] RETURN 



; Here once/m ill! second 

j[c.lk w2] ramfile adr 
[w2]_ramfTle 
j[clk w3]_ramfile adr 
[w3] ramfile 

J[27T]_[TIME] 

J [TIME BASE+1] RAMFILE ADR 

J[1»000.] [W2] 

[W2]_Q RAMFILE_[W2] 

Q+[W2]_F . F_Q_Y . ALU_RAMF I LE . 

IF NOT CT [lOVR] THEN [L0I2] 
JS[0000]_[W2] 
Q+[W2]_yTaLU_RAMF I LE 

j [time base]_ramf!le adr 
ramfile_[w2]7nrfrd/i 

[W2]+1 Y.ALU RAMFILE 
L0I2: J[TIME~INTERVAL]_RAMFILE ADR 
RAMF I LE_[W2] , NRFRD/: , I X_MX 
J [INTERVAL COUNTER]_RAMF I LE ADR 
[W2]_Q RAMFILE_[W2],NRFRD/1. 

IF CT [MZ] THEN [LOI5] 
[K -1]+[W2] Y.ALU RAMFILE, 

IF NOT CT IlZ] THEN [LO 1 5] 
Q_Y,ALU_RAMFILE 
J [APR FLAGS]_RAMFILE ADR 
J[1.0]_[W2] 
[W2]_Q RAMFILE_[W2] 
Q.OR. [W2]_[W2]TaLU_RAMF I LE 
SWAP [W2]_[W3] 
[W2]&[W3]~Y.IX_MX 

JC7]_[W3]~ 

[W2]6[W3]_B, 

IF CT [MZ IX_MX] THEN [LOI5] 
J[BIT28]_[W2] 
[W2]+[W3T_Y,Y RAMFILE ADR, 

IF CT [MZ] THEN [LOI5] 
RAMFILE_[W3],NRFRD/1 
J[RF PROC REG] RAMFILE ADR 
RAMFILE_[W2],NRFRD/1 
[W2] .OrT[W3j_Y.ALU_RAMF I LE 
[W2].0R.[W3]~Y.ALU_PR0C REG 
LOIS: J[CLK W2] RAMFILE ADR 
RAMFILE_[W2].NRFR0/1 
J[CLK W3]_RAMFILE ADR 



clock & tick it 
mess up memory 
i nterrupt 



;Restart tick counter 

;Wi11 add four milliseconds 
;Get timebase from ramfile 
;Update time base in ramfile 



:With positive sign 

: Address high order part of count 



; Address the interval counter 
;Get the interval counter 
; No interval « no counter 
; Count this interval 

;Reini tial ize interval counter 
;Need to set interval flag in APR 
;Bit for interval 

;Save updated APR FLAGS 

;Get enables 

; Check for flag was enabled 

:Mask for PI level 

; Check for Zero PI level 

; If not enabled done 

;Base to index into bit table 

; Address bi t 

; If PI level-0 done 

;Get bit 

; Address last vc.lue of PROC REG 

:Get lasi. value of processor reg 

:Save new last value of PROC REG 

; Change software interrupts 

; Where we saved W2 

; Where we saved W3 



RAMFILE_[W3],NRFRD/1 

[PMA] CPMA],hEM START READ, ;Restart memory read 

RETURN 



;Here if interrupt is not clock 
5KIP CHAIN: 

[TIME] i-l_[TmE], ;Correct time register 

IF [NOT RUN] THENP [SKPC2] 
[K -1]+[PC RH]_B,POP ;Back up PC 

SKPC2: SET LOCAL, [PI REG]_[PXCT] .POP ;Save previous level 

291it STATUS_Y,Y_[PI REG], POP ;Get PI REG in case of int 

J[7] [W6],P0P ;ln case this is PI Ivl 1 int 

.IF/DEBUG3 

[W6]£[PXCT]_B 
FOOEY: [W6].X0R.[PXCT]_Y, 

IF CT [IZ] THEN [FOOEY] 
.ENDIF/0EBUG3 

[W6]6[PI REG]_B,POP ;Clear extraneous bits 

IF [PXCT] CALL [SET CURRENT CTXT] 
[W6].X0R.[PI REG]_Y, ; Check level 

IF NOT CT [IZ] THEN [SKPC8] ; If not level 1 not PCI 

.IF/DE3UG3 

J [POOP FLAG]_RAMFILE ADR 
RAMFILE_[W1],NRFRD/1 
POOP: [W1]_[W1], 

IF NOT CT [IZ] THEN [POOP] 
ONES F.F Y,ALU RAMF I LE 
.ENDIF/DEBUG3 

LINE #_[W1],P0P ;ln case this is a line int 

: Contents of Wl (line # reg) are 
bits 33*35 "line number 

bit 31"32 " code, 0»receive, l«transmit, 2«dschange 
bit 30 - 
: bi t 29 > inval id 

; bits 0-28 > garbage 

J[100]_[W2] :Mask for invalid flag 

SKPC5: [W1]&[W2]_Y, ;Check for invalid flag 

IF NOT CT [IZ] THEN [SKPC5] ; If not valid chase skip chain 

[W1]&[W6]_B ; Leave only line number 

SWAP [W6] [W6 LH] ;Put line number in LH also 

2*([W6]+[W6 RH])_B 
[W6]+[W6 RH] F, 
F Q FJ[LN0SW]_[W6 RH] 
(H[W6]_[W6 RH], 

Y_RAMFILE ADR 
RAKFILE_[W5],NRFRD/1 ;Get status word for line 

J[10]_[W2] ;nask for dispatch 

[Wl]6lw2]_Y, sCheck for transmit 

IF NOT CT [IZ] THENP [INT XMT] 
J[20]_[W2] : Another mask 

[W1]i[W2]_Y, ;Check for rev or dsc 

IF CT [IZ] THENP [INT RCV] 
GOTOP [INT DSC] 



» 



; Makes 4*1 i ne# 


in W6 RH 


;Make 10*1 ine# 




; adr of first 


1 i ne block 


; Leaves 1 ine#, , 


1 i ne block adr 



not for a PCI 1 i ne 



;Here if interrupt is 

SKPC8: J[BIT36]_[W1] 

[W1]-[PI REG]_Y,Y_RAMFILE ADR, 

CALL [RAMFILE_W1] 
J [PI IN PROG]_RAMFILE ADR 
[W1]_Q RAMFILE_[W1],NRFRD/1 
Q.0R.[W1] Y.ALU RAMFILE ; Add 

J [60] [E]~ ~ :New 

[E]-[PI REG]_Q. 
J[23B MASK]_RAMFILE ADR 

Q-[pi reg3_f7ramfile_y,nrfrd/i, 

F_Q Y_[W5].IF [T0PS20] THEN [SKPC82] 
COMPLEMENT [K -1 .0]_F ,F_[W5] 
SKPC82: J [INT HALT]_[W1] 

CALL [SET PF RCOVR] 
Q+[EPT]_[PMA],MEM START READ, 

CALL [UNMAPPED READ] 
[MB] [E] , I X MX 

[W5]bar&[mbT_y, 
if ct [mz ix_mx] then [int halt] 



;Bit table 

; Address bit for level 

; Get bit for level 



this level also 
PC is l*0+2n 



in progress 



virtual addresses are 23 bits 



;Smaller address for TOPSIO 
;ln case we get a page fail 



[PC FLAGS]_[MB] 
ROR [BIT1»]~[W1], 

CALL [WIBARSFLAGS] 
ROR [Wl] [Wl], 

CALL [wTbARSFLAGS] 
IF [USER] CALL [WllPCr] 
[K 7777. -1]6[PC]_B, SET EXEC, 

IF CT [MZ] THEN [SKPC9] 
•IF/FTIOPAG 

J[026i»]_[Wl] 

SWAP [W1]_[W1],CALL [Wl LLSg] 

[K -1.0]&[PC]_Y, IX MX, 

IF [T0PS20] THEN [iNT HALT] 
[W1].X0R.[E] F,F_B, 

IF NOT CT [MZ] THEN [INT HALT] 
[K -1.0]6[E]_Y, 

IF NOT CT [IZJ THEN [INT HALT] 
J[PUSHJ FLAGS]_RAMFILE ADR 
RAMFILE_[W1],NRFRD/1, 

CALL [W1BAR6FLAGS] 
[PC]_[MB RH], 

CALL [MEMORY WRITE] 
ZER0_[W1], 

CALL [SET PF RCOVR] 
[E]+1_[PC RH].SET LOCAL, 

GOTOP [I FETCH] 
.ENDIF/FTIOPAG 



;Pick up interrupt instruction 

;This is adr of XPCW block 

If location is stop 
; Save program flags 
; CI ear user mode 

;Make a bit 6 « prev ctx user 

;Set prev ctxt user 

; References are now exec 

; Check high order bits 

;JSR instruction 

;Make a JSR instruction 

:Check for i 1 legal PC 

; JSR is only for TOPSIO 

; Check opcode 

; Check illegal PC 

; Check if it was a JSR 



; Flags to clear on a 
;Get flags to clear 

:Add PC 
:Do JSR 



;Set new PC 



JSR 



INT HALT: 

J [HALT III]_[W1] 
GOTOP [SET HALT CODE] 



; Illegal interrupt instruction 



W1BAR&FLAGS: 

[W1]BAR&[PC FLAGS] B, 
RETURN 



;Here because interrupt instruction is a 23bit virtual address 
SKPC9: [W1]_[W5]. :Save bit6 



CALL [MEMORY WRITE] 
[PC]_[MB],SET GLOBAL, 

CALL [WRITE NEXT] 
CE3+1_Q_[E]. 

SPEC SEL/PAGE TABLE ENTRY, 

CALL [MEMORY READ] 
ROR [BIT1»]_[W1]. 

CALL [W16AR&MB 8] 
[W5]BAR6[MB]_B ~ 
[W5]&[PC FLAGS]_B 
[MB]. OR. [PC FLAGS]_B, 

CALL [READ NEXT] 
ZER0_[W1], 

CALL [SET PF RCOVR] 
[MB]_[PC].SET LOCAL, 

GOTOP [I FETCH] 



;Save flags in block 
;Save PC in block 

;Read new flags 



;Make a user mode bit 

;Clear prev ctxt user 

; Leave only previous context user 

;Set new flags 

;Read new PC 

;Done with special 

; Page fail recovery 

;Set new PC 



W1BAR&MB B: 

IW1]BAR£[MB]_B, 
RETURN 



; Force exec mode 



.TOr. "STORE INSTRUCTION RESULTS" 

: Store one word in memory, and two AG's (NULB, DIVB) 
TO MEM D AC: 

[MEM-OP] [MB], 

IF [NOT'pXCT] then [TMDAC4] 
CALL [PXCT STORE 200] 
GOTO [D TO AC.O] 
TMDACit: [K 7777 •-1]6[E]_F , F_Q_B, 1_UC, ;Address paging ram 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEM WRITE l] 
;GOTO [D TO AC.O] 

;Here to store two words in AC's SEL AC+[0] no (ready selected 
D TO AC.O: 

SEL AC+[1] ;Point ran.file at AC+1 

[MEM-0P+1]_RAMFILE, ; Store AC+1 

GOTO [TO AC.O] 

; Store a word in an AC 
TO AC.O: 

SEL AC+[0] ;Point ramfile at AC 

;Store a word in an AC, AC already selected 
TO AC: [MEM-OP] RAMFILE, SET LOCAL. ;Write AC 
IF [NOT TRAP] THENP [I FETCH] 
GOTOP [TRAP] 

;Here to store two words in AC's SEL AC+[0] already selected 

D TO AC: 

[MEM-OP]_RAMFILE,SEL AC+[1] ;Save first half of result 
[MEM-0P+1]_RAMFILE,SET LOCAL. ;Save second operand 

IF [NOT TRAP] THEN [I FETCH] 
GOTOP [TRAP] 

;Store a word in an AC, AC already selected 
AC TO AC: 

[AC-OP]_RAMFILE, ;Write AC 

SET LOCAL, 

IF [NOT TRAP] THENP [I FETCH] 
GOTOP [TRAP] 

;Here to store to self after having read location 
BACK TO SELF: 
. IF/FAST 

[PMA] [PMA],MEM START WRITE, 

IF [AC REF] THEN [TO SELF] 
[MEM-OP] MEM, ;Write data in memory 

IF [AC.EQ.O] THEN [BACK TO MEM 2] 
[MEM-OP]_[MB],ALU_RAMFILE, ;Write data in AC 
MEM HOLD, 

IF [NO BUS ERROR] THEN [TO NOWHERE] 
;GOTO [TO SELF] ;Try again 

.ENDIF/FAST 

; Store to self, AC already selected 
TO SELF: 

IF [AC.EQ.O] THEN [TO MEM] :IF AC is zero store mem, else both 
.IF/FAST 

[MEM-OP] RAMFILE, ; Store AC 



GOTO [TO MEM] 
.ENDIF/FAST 

^ Store to both 
1^0 BOTH.O: 

SEL AC+CO] ; Point ramfile at AC 

;Store to both, AC already selected 
TO BOTH: 

[MEM-0P]_RA«FILE, ; Store AC 

GOTO [TO MEM] 

;Store memory data in AC and AC data in memory (EXCH instruction) 
TO EACH: 

[MEM-OP]_RAMFILE ;Write AC 

[AC-OP]_[MEM-OP] 

;GOTO [BACK TO MEM] 

;Here when fetched word from memory and want to write back updated number 

BACK TO MEM: 

.IF/FAST 

[PMA]_[PMA],MEM START WRITE, 

IF [NOT AC REF] THEN [BACK TO MEM 1] 
[PMA]_Y.SPEC SEL/VMA, ; Address AC 

IF [PXCT] THEN [TO MEM] 
[MEM-OP] RAMFILE, SET LOCAL, 

IF [NOT~TRAP] THENP [I FETCH] 
GOTO [TRAP] 
BACK TO MEM 1: 

[MEM-OP]_MEM ;Wrlte data 

BACK TO MEM 2: 

MEM HOLD. SET LOCAL, 

IF [NO BUS ERROR] THEN [TO NOWHERE] 
;GOTO [TO MEM] ;Try again 

•ENDIF/FAST 
; Store AC to memory 

TO MEM: [MEM-OP] [MB], ;Put data in MB 

IF [PXCT] THEN [TO MEM PXCT] 
[K 7777.-l]6[E]_F,F_Q__B,l_UC, ;Address paging ram 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEM WRITE 1] 
.IF/FAST 

SET LOCAL. 

IF [NOT TRAP] THEN [I FETCH] 
GOTO [TRAP] 
.ENDIF/FAST 
.IFNOT/FAST 

GOTO [TO NOWHERE] 
.ENDIF/FAST 
TO MEM PXCT: 

CALL [PXCT STORE 200] ; Store data 

GOTOP [TO NOWHERE] 

; Store 2 words to memory 
D TO MEM: 

[MEM-OP]_[MB] , ;Put date in right reg 

IF [PXCT] THEN [D TO MEM PXCT] 
[K 7777.-l]&[E]_F.F Q_B,1 UC, ;Address paging ram 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEM WRITE 1] 
[MEM-0P+1]_[MB] , ;Copy rest of data to memory 



CALL [WRITE NEXT] 
.IF/FAST 

SET LOCAL, 

IF [NOT TRAP] THEN [I FETCH] 
GOTO [TRAP] 
.ENDIF/FAST 
•IFNOT/FAST 

GOTO [TO NOWHERE] 
.ENDIF/FAST 
D TO MEM PXCT: 

J[0200]_[PXCT RH] 
CALL [SET PXCT CTXT] 

[K 7777.-1] 6 [E] F,F_Q_BJ_UC, ; Address paging ram 
SPEC SEL/PAGE TABLE ENTRY, 
CALL [MEM WRITE 1] 

[MEM-0P+1]_[MB], ;Copy rest of data to memory 

CALL [WRITE NEXT] 
CALL [SET CURRENT CTXT] 
GOTOP [TO NOWHERE] 

;Here to store k words in ACs 
Q TO AC.O: 

SEL AC+[0] 
[MEM-OP]_RAMFILE, 

SEL AC+[1] 
[MEM-0P+1]_RAMFILE, 

SEL AC+[2] 
[AC-0P]_RAMFILE, 

SEL AC+[3] 
[AC-0P+1]_RAMFILE, 

SET LOCAL, 

IF [NOT TRAP] THENP [I FETCH] 
GOTOP [TRAP] 



;Here to clear page table 
PAGE TABLE CLEAR: 

J[511.]_CTR, ;Want to clear 512 entries 

J[PAGE TABLE-1]_[W1] 
CLR RAM: 

CW1]+1_[W1],Y_RAMFILE ADR ; Address next page table entry 
ZERO_Y,ALU_RAMFILE, 

LOOP [CLR RAM] 
RETURN 



.TOC "T0PS20 Page Refill" 
T0PS20 page refill logic 
Call: x&[K 7777.-l]_[E] . 



;Virtual adr to do page refill for 



SPEC SEL/PAGE TABLE ENTRY 
1_UC,CALL [PAGE W REFIL] 
0_UC,:ALL [PAGE R REFIL] 

flag usage: 
uc ■ T 
U2 ' section pointer 



reg usage: 

W1 = Virtual section number 

W3 ■ AND of all section and page pointers (for W) 



;Set section flags 

;To do refill for a write reference 

;To do refill for a read referencj 



PAGE W REFIL: 

J [MB REFIL]_RAMFILE ACR,1_UC 
[MB]_RAMFILE, 
GOTO [PR 1] 

PAGE R REFIL: 

; UC 
PR 1: 

.IF/FT20PAG 
•IF/FTIOPAG 

IF [TOPS 10] THEN [TIOPR] 
.ENDIF/FTIOPAG 

SWAP [E]_[PMA], 

IF [ILLEGAL SECTION] THENP [PF 
[K 77]&[PMA]_B, 

IF [EXEC] THEN [PR 2] 
[UPT]+[PMA] B.GOTO [PR 3] 
PR 2: [EPT]+[PMA] B 
PR 3: J[ESECT]_[wT] 

[BITl.] [W3],0_!JZ 
[W1] + [PMA]_F,F Q_B, 
MEM START READ. 
CALL [PTR EVAL] 
[MB]_[W2] , 
CALL [CST UPDATE] 
2*[E] [W1].PUSH J[3]_CTR 
U*[W1]_B,RFCT 
SWAP [Wl] [PMA] 
[K 777]6[PMA]_B 
[W4]+[PMA] B.MEM START READ, 
CALL [PTR~EVAL] 
[MB]_[W2],1 UZ, 
CALL [CST UPDATE] 
J[1]_[W1] 
[MB]&[W1] Y.IX MX 
2*[W3]_Q." 

IF CT [MZ] THEN [PR 6] 
Q-OR.[W3]_[W3] 
PR 6: J[BIT2] RAMFILE ADR, 
[W3].0R.[Wl»] Q 
RAMFILE_[Wl],i!iRFRD/l 
Q.0R.[W1]_[MB]. 

IF [USER] CALL [BO I MB] 
[E]_Y. 



; Address location to save MB 
;Save MB 



;Put section number in RH 

X27] 

;Strip LH 

;UPT + section # to PMA 

;EPT + section # to PMA 

;Get offset for section pointers 

;W bit (Mask for AND of pointers) 

;EPT(UPT)+sect+ESECT 

Get page adr from section table 
Save page number 
Update CST for page table 
Copy virtual address to 
Convert to page number 
Right Justifty page number 
Make in section page number 
Address paqs table entry 

and fetcn pointer 
Update M 

Update CST for page 
Mask for Mbit 
Latch M as 0_MZ 
Make a bit k if writable 

: Add M bit if W 

;Bit for valid mapping 

:Add W bit 

;Get valid bit from ramfile 

;Add valid bit to paging ram word 

; Address paging ram location 



SPEC SEL/PAGE TABLE ENTRY 
IF/DEBUGPF 

JSCl776]_[W2] 
ROR [W2]_[W2] 
[MB]6[W2]_Y, 
IF NOT CT [IZ] THEN [HALT PG] 
.ENDIF/DEBUGPF 

[MB]_[W1],ALU_RAMFILE, ;Fin paging ram 

I F NOT CT [UC] RETURN ; I f read ref i 11 we are done 

j [mb refil]_ramfile adr 
ramfile [mb],nrfrd/1, 
return" 



Here to evaluate a section pointer or map pointer 
call; x^Q_[PHA], ; Physical address of 1st pointer 
HEN START READ. 
CALL [PTR EVAL] 
Returns 

accumulates W in W3 

page number in HB (maybe also other Junk) 
address in Wl» 
PTR EVAL: 

MEM HOLD, ;Get pointer from memory 

CALL [UNMAPPED READ] 

[MB]&[W33_B : Accumulate W 

2*[MB]_[wi^],IX_MX ; Latch bitO as MN 

2*[Wl»]_[Wi»], ;Copy pointer to Wi» and shift it 

IF CT [MN IX_MX] THEN [PF XO] ; for decode on bits 0,1,2 
2*[Wi»]_[Wi»], 
IF NOT CT [MN IX_MX] THEN [PTE ?] ; Branch if bits OOx 

;Here if bits 0-2 of section pointer are O'x 

[K -1.0]BAR&[MB]_Q, ;Get SPT index 

IF NOT CT [MN] THEN [PTE 1] :branch for 010 

;Here if bits 0-2 of section pointer are Oil ■ indirect pointer 

SWAP [MB]_[W1] :Put offset in RH 

[K 777]&[W1]_B, ;Mask off extra bits 

CALL [PTE i] ;Get table address from SPT 

[Wi»]_[PMA] ; Address of indirect table 

[W13+[PMA] B.MEM START READ. 

GOTO [PTR EVAL] 

;Here if bits 0-2 of section pointer are 010 ■ shared pointer 
PTE 1: Q+[SPT]_F,F_Q_[PMA]. :Get SPT entry for page map 

MEM START READ, 
CALL [UNMAPPED READ] 
;This word isn't included in the W accumulation 
2*[MB]_[Wi»],l_MX, ;Copy page address to W* 

CALL [1»*W'._B] 



:Here if bits 0-2 of pointer are OOx 
PTE 7: 'i*[W4] B. 

IF NOT CT [«N] THEN [PF XO] 

;Here if bits 0-2 of pointer are 001 ■ iiMiediate pointer 

PTE 8: SWAP [K 77]_[W1] :nask for storage medium 

CnB]&[W1]_Y.IX_nx :See if in core or else where 

[E]_[V(1» LH]. ~ :Add virtual section 

IF~NOT CT [M2] THEN [PF XO] 
'>*[V"*] B ; Shi ft page number to make adr 

k*Mk B: IiACWIjD'b, 
RETURN 



Here to update a CST 
Call: x_[HB] 

Call with UC 
Call with UZ 
CST UPDATE: 

J [CST] RANFILE ADR 

JC7777l_[P«A] 

[K -l]&[PMA] F.LLS F_B, 

1 SIOO 1_QI00 
[MB]*[P«A]_F, 

F_Q RAMF I LE_[PMA] 
Q+Ip«A] [PMA],MEM START READ. 

CALL [UNMAPPED READ] 
J [CSTHSK]_RA«F I LE ADR 
[K 7777.-T]BAR&[MB] Y,IX_rtX 
[HB]_Q RAHF I LE_[nB]7 

IF CT [rtZ] THEN [AGE PF] 
Qi[«B]_Q, 

J[CSTDATA]_RAMFILE ADR 
RAHFILE_[MB],NRFRD/1 
Q . OR . [MB] _F , F _Q_ [MB] , 

IF NOT CT [UC] THEN [CSTUDS] 
[W3]_Y. 

IF NOT CT [UZ IX MX] THEN 
J[1]_[MB] 
P.. OR. [MB] [MB], 

IF CT [MZ] THEN [PF XO] 
CSTU08: [PMA]_[P«A],MEM START VffllTE, 

GOTO~[UMMAPPED WRITE] 
.EM0IF/FT2OPAG 



entry 

: Physical page number for update 
if write reference 
i f want M updated 



: Leave 17777 in PMA 

; Leave only page number in ( 

: Get CST adr in PMA 

;Get CST entry for page map 



Check age field 

Get CSTmask register 

If age trap page fail 
Mask off bits 



;Add 


new 


bits 




B] ; Branch 


if read ref i 1 1 


:Test W bit 




[CSTUD8] 








;Get 


M b 


t for CST 


entry 


;Set 


M b 


t 




: If 


not 


W. page fai 1 


:Write updated CST 


entry 



.TOC "TOPS 10 Page RefiH" 



;Check for legal section 

; Strip onpage portion 
:Shift E left 8 places 



;S i gn bit > 
; Page #/2 



E 
i n 



T1PR12: 
T1PR13: 

TlPRli*: 
T1PR15: 



:Page # goes to bits 27"35 
; Check for up to 3'«0000 
;Offset for 3i»0000 in UPT 

;Offset for 000000 in exec 



; Offset for itOOOOO 
;Get word from EPT 



.IF/FTIOPAG 

llOPR: [K -1.0]&[E] Y, 

IF NOT CT [Tz: THENP [PF X27] 
[K 777] BARS [E]_F,F_Q 
Q_CW1],PUSH J[3]_CTR 
i|*CWl] B.RFCT 
SWAP [Wlj [PMA], 

IF [USER] THEN [T1PR(4] 
B SEL/E, 

IF [B BIT 18] THEN [TIPRI3] 
ROL [PMA]_[W2] 
JC3^0]_[W1] 
[W2]-[W1]_Y, 

IF CT [IN] THEN [T1PR12] 
J[220]_[W1] 
[W1] + [PMA]_B, 

GOTO [T1PR1i»] 
J[600]_[W1] 
[W1] + [PMA]_B 
[EPT]+[P«A]_B,«EM START READ, 

CALL [UNnAPPED READ] 
GOTO [TIPRI5] 
[UPT] + [PMA] _B, HEM START READ, 

CALL [UNMAPPED READ] 
[PMA] Y , I X_MX 

IF NOT CT [MNj CALL [SWAP MB MB] 
J[7777]_[W2] 
[W2] F.LLS F_B,B SEL/W2, 

1_ST00 1 QlOO 
ZER0_[W1]7 

IF [EXEC] THEN [TlPR2ii] 
J[0002]_[W1] 
SWAP [Wl] [Wl] 
T1PR2^: [MB] [Wl RH] 
2*[WT]_[W1] 
2*[W1] [Wl RH] 
l.*[Wl]~B 
[MB] [Wl RH] 

[W2]?[W1 RH]_B.PUSH J[l]_CTR 
[W1]+[W1 lH]_f,LLS F_B,RFCT 

[E] Y.SPEC SEL/PAGE TABLE ENTRY :Address paging r 
2*[W1]_CW1],PUSH J[3]_CTR 
4*[W1]~B,IX MX.RFCT 
[Wl] yTalu RAMFILE, 

IF NOT CT~[UC] return 
J[MB REFIL]_RAMFILE ADR 
RAMF I LE_[MBT.NRFRD/1 .RETURN 
.ENOIF/FTIOPAG 



bit 26 
bits 28-35 



in EPT 



;Get word from UPT 

; Check for odd or even 

;Want mask for physical 
;Put 17777 in W2 



page 



; Bui Id paging ram word here 

;Bit for user 

;Add APWS 

;Put A in bit 17 

:Put W in bitl8(discard P) 

:Put S In bit17 

:Add page # 

;Clear extra bits 

:Put S in bit 13 

*affl 
;Want to shift left 9 

;Write new paging ram word 

: Address where we left MB 
; Res tore MB 



.TOC 



"UNHAPPED MEMORY READ' 



; CALL: x_[PMA],ME« START READ 
; returns with data in MB 
UNMAPPED READ 0: 

[PMA]_[PMA].HEM START READ 
UNMAPPED REAdT 

MEM HOLD. 
CHECK INTERRUPTS 

MEM_[KB] 

MEM HOLD. 
IF [NO BUS ERROR] RETURN 

;GOTO [MEM ERR] 



;Get contents of memory 



:Here on a mem fault 

2 If soft (ECC correctable error) will save status (even If already 

I latched) set APR flag. SPEC SEL/IW, and return. 

Will clobber WUW2 
If RAMFILE [HE RCOVR] is nonzero will go there with status in Wl 
Else win build a page fail code and go to PF XX 
MEM ERR; 

JC«E WI]_RA«FILE ADR 

[Wl] RANFILE 

J[«E~W2]_RAMFILE ADR 

[w2]_ranfile 

[p«a]_[w2],«em hold. free/3 
'»*[w2]_b,me« hold 
swap [w2]_[w2],«eh hold 

[K 77]&[W2]_Q,«EM HOLD. 

J[BIT20]_RAMFILE ADR 
RAMFILE_[W2].NRFRD/1.MEM HOLD 
Q+[W2] F.F Q_Y, START 10 READ 
10 TRANSFER, XFER «EM, 

Y_[W1].ALU_Y/N0, 

H STATUS ENAB/NO 
[BIT17]_[WI LH], 



;Have to save Wl 

;Have to save W2 

;Copy offending address 
;Put board number in Ih 
;Put board number in rh 



:Get 100000 

; Address memory status reg 

;Get status from memory 

: Don't change error flags 
: Check for NXM 



IF [NOT MEM EXISTS] THEN [MEM NXM] 
[BIT17]+[W1]_B, ;1st check Bus fault line 

IF [MEM FAULT] THEN [MEM FAULT] 



;Here if we detected parity from bus 
IF/FTCKBP 

[BIT17]+[WI]_B. 
GOTO [MER05] 
.ENDIF/FTCKBP 
.IFNOT/FTCKBP 

J [ME W1]_RAMFILE ADR 
RAMFILE_[WI] 
J [ME W2l_RAMFILE ADR 
RAMFILE [W2] 
[MB] [MB], SPEC SEL/IW, 
RETURN 
.ENDIF/FTCKBP 



;Must be a bus parity error 

: Where we saved Wl 
; Where we saved W2 
:ln case part of efa calc 



:Here because we won a NXM 
MEM NXM: 

J [NXM STS] [W2].Y RAMFILE ADR 

GOTO [MER'O] 



;Save status as "nxm" 



;Here when memory complains 

MEM FAULT: 

.IF/FTSMER 

J[6550]_[W2] 

'»*CW2] B.CALL [1»*W2 B] 

[W1]*[W2]_Q 

J[*»0IO] [W2] 

'♦*[W2] B.CALL [*.*W2_B] 

Q.X0R.[W2]_F.F Y. 
IF NOT CT [IZ] THEN [MER05] 

J [APR FLAGS] RAMFILE ADR 

[K 77]'H_f.f3q Y [W2], 
RAMFILE Y.NRFRO/I 



; Leave only bits we care about 
:Bits we expect 



:Make 100 - SME flag 



II 



Q.0R.[W2]..F.F_Q_[W2]. 

ALU RAHFILE 
SWAP~[W2] [W2] 
Q&[W2]_Y." 

IF CT [IZ] THEN [MEROU] 
**** add code to make interrupt **** 
MER04: J[S«E STS]_[W2] ,Y_RAnF I LE ADR -.Save status as "soft' 

CALL [NESAV2] ~ ;Save status and exit 

J [HE Wl]_RAMFILt ADR 
RAMFILE_[W1] 
J[«E W2]_RAMFILE ADR 
RAMFILE_TW2] 
CMB]_Y,SPEC SEL/IW, 

RETURN 
.ENDIF/FTSnER 
MER05: J[HME STS]_[W2] , Y_RAMF I LE ADR, ; Save status as "hard" 

POP 
MERIO: J[nE RCOVR]_RAMF I LE ADR, ; Check for recovery routine 

[W2]_Q,P0P 
RAMFILE_[W2],NRFRD/1,P0P ;Get recovery routine 
[W2]_Y,7f NOT CT [IZ] THEN Y ;lf there is one do it 
.IFN"^T/FTPFRMER 

J[PF RCOVR]_RAMFILE ADR ;Page fail recovery 
ZERO Y,ALU_RAMFILE ; doesn't help here 

.ENDIF/FTPFRMER 

Q_CW2],Y_RAMFILE ADR, 

CALL [HERSAV] :Save error status 

[BIT17].X0R.[W1]_F,P0P, 

F J [3700] [Wl] ;Code for NXM 

[K -1.0]fcIwi]_Y. 

IF CT [IZ] THENP [PF XX] 
J[3600]_[W1] ;Code for mem err 

GOTOP [PF XX] ; Perform a page fail 

MERSAV: RAMF I LE_Y,NRCRD/ll , IX_nX :See if already latched error 

IF NOT CT [nz] RETURN ; Don't overwrite 

MESAV2: [Wl]_RA«F I LE, ;Save status 

CALL [W2+1_RFA] 
[PHA]_RAHF I LE, ;Save address of losing location 

CALL [W2+1_RFA] 
[MB]_RAHFILE,SPEC SEL/IW, 
RETURN 

i»*W2_B: i»*[W2]_B, RETURN 

W2+1_RFA: 

[W2]+l [W2],Y_RAMFILE ADR. ;Address next ramfile location 

RETURN 



.TOC "MEf»ORY READ ROUTINE" 

: CALL: x_Q_[E] , ;Put address in E 6 Q 

\ CLEAR LOCAL, SET LOCAL, ; Only one please 

; SPEC SEL/PAGE TABLE ENTRY, ; Address paging entry 

; CALL [MEMORY READ] 

: RETURNS with data in MB and with SPEC SEL/IW set 

; paging RAM word is in W1 

; clobbers U^-Wt (if page refill) 

;Here to fetch next virtual address 
READ NEXT: 

[E] + 1_Q_[E RH], 

IF [LOCAL] THEN [MEM READ 0] 
Q_[E] , ; Address to read 

SPEC SEL/PAGE TABLE ENTRY, 
GOTO [MEMORY READ] 

MEM READ 0: 

[K 7777.-1]6[E]_F,F_Q_B, ;Address to read 
SPEC SEL/PAGE TABLE ENTRY, 
GOTO [MEMORY READ] 

MEMORY READ: 

Q&[K 777] F.RAMFILE Y,NRFRD/1, ;Put page entry in Wl 

0_UC IX_MX. 

yICWI] F_Q,LCTXTM/1. ; Put on page adr in Q 

IF [UNPAGED OR AC] THEN [M R 8] 
IF/DEBUGPF 

JS[1776]_[W2] 
ROR [W2]_[W2] 
LWl]i[W2]_Y, 

IF NOT CT [IZ] THEN [HALT PG] 
.ENDIF/DEBUGPF 

Q.0R.[W1]_[PMA],MEM START READ, 

IF [CONTEXT MATCH] THEN [MEM READ 1»] 
[K 7777.-l]i[E]_B,0 UC, :Mask address to 30 bits 

CALL [PAGE R REFIlJ 
GOTO [MEM READ 0] 

MEM READ 3: 

[E] [PMA].MEM START READ :Address location 
MEM READ k: 

CHECK INTERRUPTS, 

{ t HOLD 
ME. [MB], SPEC SEL/IW ;Read memory into MB & select IW 

[MBJ_[MB],MEM HOLD, 

IF InO bus ERROR] RETURN 
MEM HOLD. GOTO [MEM ERR] 

;Here if reference is unpaged or ac 

M R 8: [E]_[PMA],SPEC SEL/VMA, :Address register 
IF [NOT AC REF] THEN [MEM READ 3] 
RAMFILE_[MB].NRFR0/1, :Read AC into MB & select IW 

IF [ILLEGAL SECTION] THENP [PF X27] 
CHECK INTERRUPTS 
[MB] Y,SPEC SEL/IW, 
RETURN 



.TOC 



"UNMAPPED MEMORY WRITE ROUTINE' 



; CALL: x [MB] 

; xICPMA] 

; CALL [UNMAPPED WRITE] 



;Put data in MB 

;Physical location to write into 



;Here to write memory with contents of MB and then increment PMA 
UNMAPPED WRITE NEXT: 

[PMA] + '._[P«A],MEM START WRITE, :Give memory address 
GOTO [UNMAPPED WRITE 2] 



UNMAPPED WRITE: 

[PMA]_[PMA], 
MEM START WRITE 
UNMAPPED WRITE 2: 
[MB]_MEM 
MEM HOLD. 

IF [NO BUS ERROR] RETURN 
MEM HOLD, GOTO [MEM ERR] 



;Give memory address to write 
;Write data in memory 



.TOC "MEMORY WRITE ROUTINE" 

CALL: x_CE] ;Virtual adr 

x_[WB], ;Put data in MB 

; CALL [MEMORY WRITE] 
: with GLOBAL/LOCAL flag set. 
: may clobber W1-W5 

WRITE NEXT: 

[E]+1_F.F_Q_CE], 
SPEC SEL/PAGE TABLE ENTRY. 
GOTO [MEM WRITE 1] 
MEMORY WRITE: 

[K 7777.-l]6[E] F.F Q_B,1 UC, ;Address paging ram 
SPEC SEL/PAGE TABLE ENTRY. 
IF [NOT PAGED] THEN [M W 8] 
MEM WRITE 1: 

Q&[K 777]_Q RAMFILE_[W1],NRFRD/1, ;Get paging ram entry 

1 UC IX MX.LCTXTM/1, 
IF [UNPAGED OR AC] THEN [M W 8] 
.IF/DEBUGPF 

JS[1776]_[W2] 
ROR [W2]_[W2] 
[W1]6[W2]_^Y, 
IF NOT CT [IZ] THEN [HALT PG] 
.END IF/DEBUGPF 
.IF/FTADRB 

J[AB WR]_RAMFILE ADR. :Get address to stop on 

Q&[K 7777.-l]_F.F_Q 
RAMFILE_[W2].NRFRD/1 
Q.X0R.[W2] F,F_Y. 

IF CT [IZ] THEN [M W 2] 
J [HALT CODE]_RAMF I LE AD« 
J[H»».LT ADRBRK]_[W2] 
[W2] RAMFILE.CLEAR RUN 
.END IF/FTADRB 
M W 2: Q.0R.[W1]_[PMA]. 
MEM START WRITE. 
IF [CONTEXT MATCH] THEN [M W 3] 
M W 25: [K 7777.-l]6[E] B, ;Mask address to 30 bits 

CALL [PAGE W REF I L] 
GOTO [MEMORY WRITE] 

M W 3: B SEL/W1.MEM HOLD, :Check M bit is set 

IF [B BIT 3] THEN [M W 5] 
M W XX: 
.IF/FT20PAG 

[BITi»]&[Wl] Y,IX_MX, ;Check W bit 

IF [TOPS 10] THEN [M W PF] 

IF NOT CT [MZ] THEN [M W 25] 
;***** clever code here could just call CST UPDATE 
.ENDIF/FT20PAG 
M y PF: GOTO [PAGE FAIL] 

P W i»: [E]_[PMA],MEM START WRITE 

M W 5: [MB] MEM :Write memory into MB 

MEM HOLD, 
IF [NO BUS ERROR] RETURN 

MEM HOLD, GOTO [MEM ERR] 



;Here if writing AC or unpaged 

M W 8: [E]_[PMA],SPEC SEL/VMA. ;Address register 
IF [NOT AC REF] THEN [M W i»] ; Check for unpaged 

IF [ILLEGAL SECTION] THENP [PF X27] 

[MB]_RAMFILE,RETURN ; Write AC in RAMFILE 



.TOC "PAGE FAIL" 
.NOBIN 



T0PS20 TOPS 10 

+ j. + + 

500 ! Page fail word ! ! Page fail word I 

+ + + + 

301 ! Page fail flags ! ! Page fail old flags,, PC ! 
+ + + + 

302 ! Page fail old PC ! ! Page fail new PC ! 
+ + + + 

303 ! Page fail new PC ! ! Reserved I 
+ + + + 



.BIN 



;Here for an ager page fail 

AGE PF: 

.IF/FTAGEPF 

J [2100] [Wl] 

GOTOP [PF XX] 
•ENDIF/FTAGEPF 

;Here for uncoded page fail 
PF XO: ZERO [Wl], 

GOTOP [PAGE FAIL] 

;Here for an 10 page fail 
10 PF: 

|F X20: J[2000]_[W1] 
GOTOP [PF XX] 

;Here for a Illegal Indirect page fail 
PF X2i»: J[2i»00] [Wl] 
GOTOP [PF XX] 

:Kere for an Illegal Section page fail 
PF X27: J [2700] [Wl] 

; GOTOP [PF XX] 

PF XX: SWAP [W1]_[W1],PUSH J[2]_CTR ;Move code to Ih 

i»*[Wl]_B,RFCT ~ ;Shift 6 places left 

GOTO [PF XXI] 

.IF/DEBUGPF 
HALT PG: 

0NES_[W1] , 
GOTO [SET HALT CODE] 
.ENDIF/OEBUGPF 

;Here to do a Page fail, with page fail word in Wl 

PAGE FAIL: 

.IF/OEBUGPF 

Js[l]_[w2] ;Mask for illegal bits 

ror [w2] [w2] 

[wl]£[w2T_Y, 
if not ct [iz] then [halt pg] 
.ENDIF/OEBUGPF 

ROR [BITlt] [W2]. ;nak6 a type-1 bit 

IF NOT CT"[UC] THEN [PF XXI] 



[W2].0R.[W1] B 
PF XXI: J[37]_[W2] 

SWAP IW2] [W2] 
[W2]&[E LH] B, 

IF [PXCT] CALL [SFT CURRENT CTXT] 
J[PF RCOVR] RAMFILE ADR. 

[K 7777.-OBAR6[Wl] Q 

Q.or.Ce]_[wi], 
if [not paged] thenp [pf xx2] 

J [1000] [W2] 
SWAP [W2]_[W2], 
CALL [W2.0R.W1] 
PF XX2: [Wl] [MB], 

IF Iuser] call [BOIMB] 

RAMF I LE_[W2] , ! X_MX 
[W2]_Y, 

IF NOT CT [MZ] THEN Y 
J[PF MER] [Wl] 
[K -1] + [PC RH]_B, 

CALL [SET MER] 
J[PFW]_[PMA] 
[UPT]+Ip«A]_B.MEM START WRITE, 

CALL [UNMAPPED WRITE] 
[PC FLAGS]_[MB], 

IF [T0PS20] THEN [PF 3i«] 
[PC]_[MB RH],G0T0 [PF 35] 
PF 34: [PMaJ+1_[PMA],MEM START WRITE, 

CALL [UNMAPPED WRITE] 
[PC]_[MB] 
PF 35: [PMA]+1 [PMA], MEM START WRITE, 

CALL [UNMAPPED WRITE] 
PF kO: [PMA]+1 [PMA], MEM START READ, 

CALL [UNMAPPED READ] 
ZER0_[W1],CALL [SET MER] 
[MB]_[PC],SET EXEC, 

IF [TOPS 10] THEN [MB_Pr. FLAGS] 
ZERO [PC FLAGS], SET LOCAL, 

GOTO [I FETCH] 



;Add T bit 
; Bui Id mask 



;Strip mapping info 

;Put virtual address in PF wcrd 

;Wi 1 1 become V bit 



;Copy page fai i word 

; Add user mode i f needed 

;Get recovery routine adr 

;lf there is one do it 

;ln case error i etching from UPT 

; Backup the PC 

; Set memory err recovery 

;Get offset into UPT for page fail word 

; Physical location of word 

;Next word is flags 

;Put PC in rh 
;Store flags 

:Next word is PC 
;Store PC 



;Get new PC 

:Hav9 now passed any errors 



BO I MB: JS[0] [Wl] 
WIIMB: [W1].0R.[MB] B, 
RETURN 



;Put i»00000,,0 in Wl 
;Set bit 



;Her» if encounter NXM, bus error, or ECC error 
PF MER: J [HALT PFMER]_[W1] 

GOTOP [SET HALT CODE] 



;Set halt code and quit 



SET PF ME RCOVR: 

CALL [SET MER] 

;GOTO [SET PF RCOVR] 
SET PF RCOVR: 

J[PF RCOVR]_RAMFILE ADR 
W1_RAMFILE: 

[Wl] RAMFILE, 
RETURN 



;ln case errors handling int 



;Here to set memory error recovery location 
SET MER: 

J [ME RCOVR] RAMFILE ADR 

[W1]_Y,ALU_RAMFILE, 



RETURN 



.TOC 



"DISPATCH TABLE" 



.DCOOE 



[MUUO]l[APRID] 


:000 


Illegal 70000 




[CHK 


PC 


SECT] [ncE] 


[LUUO] 




001 


LUUO 7000i4 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




002 


LUUO 70010 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




003 


LUUO 700 U 


[CHK 


PC 


SECT] [HCE] 


[LUUO] # [CONG APR] ; 


00i» 


LUUO 70020 


[CHK 


PC 


SECT] [r.CE] 


[LUUO]#[CONI APR] ; 


005 


LUUO 7002U 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONSZ APR] ; 


006 


LUUO 70030 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONSO APR] ; 


007 


LUUO 70031* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




010 


LUUO 7001*0 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




Oil 


LUUO 7001*1* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




012 


LUUO 70050 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




013 


LUUO 70051* 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONO PI] 


01i» 


LUUO 70060 


[CHK 


PC 


SECT] [ncE] 


[LUUO] # [CON 1 PI] ; 


015 


LUUO 70061* 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONSZ PI] 


01b 


LUUO 70070 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONSO PI] 


017 


LUUO 70071* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




020 


LUUO 70100 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[DATAI PAG] 


021 


LUUO 70101* 


[CHK 


PC 


SECT] [ncE] 


Cluuo]#[clrpt] 


022 


LUUO 70110 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[DATAO PAG] 


■023 


LUUO 70111* 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONO PAG] 


;024 


LUUO 70120 


[CHK 


PC 


SECT] [ncE] 


[LUUO]#[CONI PAG] 


;025 


LUUO 70121* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;026 


LUUO 70130 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;027 


LUUO 70131* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;030 


LUUO 7011*0 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;03l 


LUUO 7011*1* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




i032 


LUUO 70150 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;033 


LUUO 7015'* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;03'» 


LUUO 70160 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;035 


LUUO 70 161* 


[CHK 


PC 


SECT] [ncE] 


[LUUO] 




;036 


LUUO 7017c 


[CHK 


PC 


SECT] [nCE] 


[LUUO] 




:037 


LUUO 70171* 


IF/FT20PAG 














[NUUO]#[RDSPB] 


:040 


nuuo 70200 






[nUUO]#[RDCSB] 


;01»1 


nuuo 7020H 






[NUUO]#[RDPUR] 


:0i»2 


nuuo 70210 






[nUUO]#[RDCSTM] 


;043 


nuuo 702 u 






ENDIF/FT20PAG 












1 FN0T/FT2OPAG 












[nuuo] 




:040 


nuuo 70200 






[HUUO] 




:Oi«i 


nuuo 70201* 






[nuuo] 




:042 


nuuo 70210 






[mjuo] 




;01.3 nuuo 702 lii 






EM0IF/FT2OPAG 












[mJUO]#[R0TI«] 


:0Jiii 


nuuo 70220 






[nuuo] #[R0 INT] 


;0Ji5 nuuo 702 2ii 






[mJUO]#[R0HSB] 


:0i*6 


nuuo 70230 






[nuuo] 




;0Ji7 


nuuo 702 3'» 






IF/FT20PA6 














[nUUO]#[WRSPB] 


:050 


nuuo 702iiO 






rnuuo]#CwRCSB] 


:05i 


nuuo 702 'I't 






[nUUO]#[WRPUR] 


;052 


nuuo 70250 






[nuuo]#[wRCSTn] 


:053 mJUO 7025<i 






ENDIF/FT20PAG 












1 FNOT/F r20PA6 













[nuuo] 








050 nuuo 70240 




[nuuo] 








051 nuuo 702i»ii 




[nuuo] 








052 nuuo 70250 




[nuuo] 








053 nuuo 7025'» 




EHDIF/FT20PAG 












[MUUO]#[WRTIH] 




os'i nuuo 70260 




[nuuo] #[WR INT] 




055 nuuo 7026it 




Cnuuo]#[witHSB] 




056 nuuo 70270 




[nuuo] 








057 nuuo 7027'* 




[nuuo] 








060 nuuo 70300 




[nuuo] 








061 nuuo 7030'» 




[nuuo] 








062 nuuo 70310 




[nuuo] 








063 nuuo 703 H 




[nuuo] 








064 nuuo 70320 




[nuuo] 








065 nuuo 70324 




[nuuo] 








066 nuuo 70330 




[nuuo] 








067 nuuo 70334 




[nuuo] 








070 nuuo 70340 




[nuuo] 








07' nuuo 70344 




[nuuo] 








,072 nuuo 70350 




[nuuo] 








;073 nuuo 70354 




[nuuo] 








;074 nuuo 70360 




[nuuo] 








;075 nuuo 70364 




[nuuo] 








[076 nuuo 70370 




[nuuo] 








;077 nuuo 70374 




[nuuo] 








;100 70400 




[nuuo] 








;101 70404 




[nuuo] 








;102 70410 




[nuuo] 








;103 70414 




[nuuo] 








;104 70420 




[FETCH *C&I] 


[CHK PC SEC- 


r] [ADJSP] [ADJSP V] ;105 ADJSP 70424 


[nuuo] 








;106 70430 




[nuuo] 








:107 70434 




[nuuo] 








;110 OF AD 70440 




[nuuo] 








:in DFSB 70444 




[nuuo] 








;112 OFnP 70450 




[nuuo] 








;\M OFDV 70454 




[DFETCH 


AC&nEn] 


[DADO] [ 


D TO AC.O] 


:n4 DADO 70460 


[DFETCH 


AC&nEn] 


[OSUB] [ 


D TO AC.O] 


:n5 DSUB 70464 


[DFETCH 


AC»nEn] 


[onuL] [ 


5 TO AC.O] 


:ii6 onuL 70470 


[DFETCH 


AC»nEn] 


[DO IV] [ 


Q TO AC.O] 


;n7 DOIV 70474 


[DFETCH nEn] 


[D TO AC] 




:120 DnovE 70500 


[DFETCH nEn] 


[DHOVNX] [D 


TO AC.O] 


:i2i onovN 70504 


[FETCH nEn] 


[FIX] [IFETC 


H] 


;122 FIX 70510 


.IF/FTEXTEMO 












[EXTEND] 










;123 EXTEND 70514 


.ENOIF/FTEXTEND 












. 1 FNOT/FTEXTEND 












[nuuo] 










;123 EXTEND 70514 


.ENOIF/FTEXTEND 












[DFETCH 


AC] 


[D TO nEn] 




:124 onovEn 70520 


[DFETCH 


AC] 


[DnOVNX] [D 


TO nEn] 


:125 onovNn 70524 


[FETCH nEn] 


[FIX] [FIXR] 




;126 FIXR 70530 


[FETCH nEn] 


[FLTR] [TO A 


C] 


;127 FLTR 70534 


[nuuo] 








:130 UFA(obs) 70540 


[nuuo] 








;131 DFN(obs) 70544 


[nuuo] 








:132 FSC 70550 




. 1 F/FTBYTE 












[FETCH ActnEn] 


[ADJBP] [TO NOWHERE] [ADJBPO] :133 IBP ADJBP JOBS'* 


[FETCH nEn(w)] 


[IP4S SET 


UP] [IP(S 5] [LDB] :134 ILDB 7056O 



[FETCH MEn] [P(S SETUP] [MCE] [LDB] 


:135 LOB 7056i> 


[FETCH ACMEH(W)] [IP»S SETUP] [iPiS 5] [DPB] ; 1 36 lOPB 70570 


[FETCH AC^HEn] [PiS SETUP] [HCE] [DPB] 


:137 DPB 7057'* 


.EHDIF/FTBYTE 




. 1 FNOT/FTBYTE 




[NUUO] :133 IBP ADJBP 7055'» 


[nuuo] :i3<i iLDB 70560 




[HUUO] :135 LDB 7056'* 




[HUUO] ;136 IDPB 70570 




[MUUO] ;137 DPB 7057'» 




.ENDIF/FTBYTE 




[FETCH AC&nE«] [FADX] [TO AC.O] ; 


lUO FAD 70600 


[NUUO] : 


141 FADL(obs) 7060lt 


[FETCH AC*nEn(W)] [FADX] [TO MEN] ; 


11t2 FADM 70610 


[FETCH ACtME«(W)] [FADX] [TO BOTH.O] ; 


1it3 FADB 706ll» 


[FETCH ACtMEH] [FADRX] [TO AC.O] : 


}Uk FADR 70620 


[FETCH ACil] [FADRX] [TO AC.O] j 


1i>5 FADRI 7062<» 


[FETCH AC4«EM(W)] [FADRX] [TO MEH] ; 


1i»6 FAORM 70630 


[FETCH ACWEM(W)] [FADRX] [TO BOTH.O] ; 


1i»7 FADRB 7063'* 


[FETCH ACtnEM] [FSBX] [TO AC.O] j 


150 FSB 70640 


[NUUO] ; 


151 FSBL(obs) 70644 


[FETCH AC*MEW{W)] [FSBX] [TO MEW] ; 


152 FSBM 70650 


[FETCH ACtHE«(W)] [FSBX] [TO BOTH.O] ; 


153 FSBB 70654 


[FETCH AC&HEn] [FSBX] [TO AC.O] ; 


154 FSBR 70660 


[FETCH ACil] [FSBX] [TO AC.O] ! 


155 FSBRI 70664 


[FETCH AC&MEM(W)] [FSBX] [TO MEH] i 


156 FSBRM 70670 


[FETCH AC&«E«(W)] [FSBX] [TO BOTH.O] ; 


157 FSBRB 70674 


[FETCH AC4NEM] [F«PX] [TO AC.O] 


160 FMP 70700 


[nuuo] 


161 FMPL(obs) 70704 


[FETCH AC*«E«(W)] [FMPX] [TO HEM] 


162 FMPM 70710 


[FETCH ACtMEM{W)] [FMPX] [TO BOTH.O] 


163 FMPB 70714 


[FETCH AC*MEM] [FMPRX] [TO AC.O] 


164 FMPR 70720 


[FETCH AC&nEM] [FMPRX] [TO AC.O] 


165 FMPRI 70724 


[FETCH ACtME«(W)] [FMPRX] [TO MEM] 


166 FMPRM 70730 


[FETCH AC*MEM(W)] [FMPRX] [TO BOTH.O] 


167 FMPRB 7073'* 


[FETCH AC4MEM] [FDVX] [TO AC.O] 


1I7O FDV 70740 


[MUUO] 


;171 FDVL(obs) 70744 


[FETCH ACMEM(W)] [FDVX] [TO MEM] 


!172 FDVM 70750 


[FETCH AC*MEM(W)] [FDVX] [TO BOTH.O] 


[173 FDVB 70754 


[FETCH AC4MEM] [FDVX] [TO AC.O] 


;174 FDVR 7076O 


[FETCH ACtHEM] [FDVX] [TO AC.O] 


;175 FDVRI 70764 


[FETCH AC&MEM(W)] [FDVX] [TO MEM] 


;176 FDVRM 70770 


[FETCH AC*MEM{W)] [FDVX] [TO BOTH.O] 


;177 FDVRB 70774 


[FETCH MEM] [TO AC] 


;200 MOVE 71000 


.IF/FAST 




[MOVEI] 


;201 MOVEI 71004 


.EMD IF/FAST 




.IFMOT/FAST 




[FETCH 1] [TO AC] 


:201 MOVEI 71004 


.ENOIF/FAST 




[FETCH AC] [TO MEM] 


;202 MOVEM 71010 


[FETCH MEM(W)] [BACK TO SELF] 


;203 MOVES 71014 


[FETCH MEM] [MOVSX] [TO AC] 


;204 MOVS 71020 


.IF/FAST 




[MOVSI] 


:205 MOVSI 71024 


.END IF/FAST 




.IFNOT/FAST 




[FETCH 1] [MOVSX] [TO AC] 


:205 MOVSI 71024 


.END IF/FAST 




[FETCH AC] [MOVSX] [TO MEM] 


;206 MOVSM 7IO3O 



[FETCH 
[FETCH 
[FETCH 
[FETCH 
[FETCH 
[FETCH 

.IF/FAST 

[MOVE I ] 

.END IF/FAST 

.IFNOT/FAST 

[FETCH 

.END IF/FAST 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[DFETCH 

[DFETCH 

[DFETCH 

[nuuo] 

[FETCH 

.IF/FAST 

[FETCH 

.END IF/FAST 

. I FNOT/FAST 

[FETCH 

.END IF/FAST 

[FETCH 
[FETCH 
[JRST] 
[JFCLJ 
[FETCH 

[HAP] 

[FETCH 

[FETCH 

[FETCH 

[FETCH 

[CHK PC 

[CHK PC 

[FETCH 

[FETCH 

[FETCH 



SELF] 



HEn(W}] [AOVSX] [BACK TO SELF] 

nEn] [novNX] [to ac] 

I] [«0VNX] [to AC] 

AC(nx)] [«ovnx] [to meh] 
HEn(w)] [novNX] [back to 

HEM] [«OV«X] [to AC] 



I] [to AC] 



207 MOVSS 7103^ 

210 novN 7101»0 

211 MOVNI 710i»A 

212 nOVNM 71050 

213 MOVNS 71054 

2i<i novN 71060 

;215 nOVMI (-MOVED 71064 



;215 MOVMI (-MOVED 71064 



AC (MX)] [MP/HX] [TO MEM] ;216 MOVMM 

MEM(W)] [MOVNX] [BACK TO SELF] :217 MOVMS 
ACtMEM] [MULX] [INULX] [TO AC.O] :220 

AC&I] [MULX] [IMULX] [TO AC.O] ;221 

AC&MEM(W)] [MULX] [ INULX] [BACK TO MEM] 
ACiMEM(W)] [MULX] [IMULX] [TO BOTH.O] 



71070 

71074 

IMUL 71100 
IMULI 71104 



AC&MEM] [MULX] [D TO AC] 
AC&I] [MULX] [D TO AC] 
AC&MEM(W)] [MULX] [BACK TO MEM] 
AC&MEM(W)j [MULX] [TO MEM D AC] 
AC(MEM] [IDIVX] [D TO AC.O] 
ACH] [IDIVX] [D TO ACO] 
AC&MEM(W}] [IDIVX] [BACK TO MEM] 
ACiMEM(W)] [IDIVX] [TO MEM D AC] 
ACtMEM] [DIVX] [D TO AC.O] 
ACil] [DIVX] [D TO AC.O] 
AC(MEM(W)] [DIVX] [BACK TO MEM] 
AC&MEM(W)] [DIVX] [TO MEM D AC] 
AC (MX)] [ASH SETUP] [ASH] [ASHR] 
AC] [ASH SETUP] [ROT] [ROTR] 
AC] [ASH SETUP] [LSH] [LSHR] 
AC (MX)] [JFFO] 
AC] [ASHC SETUP] [ASHC] [ASHCR] 
AC] [LSHC SETUP] [ROTC] [ROTCR] 
AC] [LSHC SETUP] [LSHC] [LSHCR] 

AC(MEM(W)] [TO EACH] 

AC] [BLT] [BLT+IN] 



AC] [BLT] 

AC] [AOBJX] 
AC] [AOBJX] 
[MCE] [MCb] 
[MCE] [MCE] 
MEM] [XCT] 



[JXGE] [TO AC.O] 
[J XL] [TO AC.O] 
[I FETCH] 
[I FETCH] 



AC] [CHK PC SECT] [PUSHJ] 

AC&MEM] [PUSH] 

AC] [CHK PC SECT] [POP] 

AC] [CHK PC SECT] [POP J] 

SECT] [JSR] [JSR SETUP] 

SECT] [JSP] [JSR SETUP] 

AC] [JSA] 

AC] [JRA] 

AC&MEM] [AODX] [TO AC] 



:222 IMULM 71110 
:223 IMULB 71114 

224 MUL 71120 

225 MUL I 71124 

226 MULM 71130 

227 MULB 71134 

230 IDIV 71140 

231 IDIVI 71144 

232 IDIVM 71150 

233 IDIVB 71154 

234 DIV 71160 

235 OIVI 71164 

236 DIVM 71170 

237 J1VB 71174 

240 ASH 71200 

241 ROT 71204 

242 LSH 71210 

243 JFFO 71214 

244 ASHC 71220 

245 ROTC 71224 

246 LSHC 71230 

247 71234 

250 EXCH 71240 

,251 BLT 71244 



;251 BLT 71244 



252 
253 
254 
255 
256 

257 
260 
261 
262 
263 
264 

265 
266 
267 
270 



AOBJP 71250 
AOBJN 71254 
JRST 71260 
JFCL 71264 
XCT 71270 
MAP 71274 
PUSHJ 71300 
PUSH 71304 

POP 71310 
popj 71314 

JSR 71320 
71324 
71330 
71334 
71340 



JSP 
JSA 
JRA 
ADO 



[FETCH AUI] [ADDX] [TO AC] ;271 

[FETCH AC&nEn(W)] [ADDX] [BACK TO MEN] ;272 
[FETCH AC*«E«{W)] [ADDX] [TO BOTH.O] ;273 

[FETCH AC&MEM] [SUBX] [TO AC] ;27'» 

[FETCH ACS I] [SUBX] [TO AC] ;275 

[FETCH AC&«EN(W)] [SUBX] [BACK TO MEM] ;276 
[FETCH AC&«EM(W)] [SUBX] [TO BOTH.O] ;277 

[TO NOWHERE] :300 

[CAX] [SXL] [IFETCH]##[JXA] 
[CAX] [SXE] [IFETCH]##[JRSTF] 
[CAX] [SXLE] [IFETCH]##[MUU0] 
[CAX] [SXA] [IFETCH]##[HAIT] 
[CAX] [SXGE] [IFETCH]##[XJRSTF] 
[CAX] [SXN] [iFETCH]##[XJEN] 
[CAX] [SXG] [IFETCH]##[XPCW] 
[IFETCH]##[JRST 10] 

[CAX] [SXL] [IFETCH]##[«UUO] 
[CAX] [SXE] [IFETCH]##[JEN] 
[CAX] [SXLE] [IFETCH]##[«UU0] 
[CAX] [SXA] [IFETCH]##[SFM] 
[CAX] [SXGE] [IFETCH]##[«UUO] 
[CAX] [SXN] [IFETCH]##[MUU0] 
[CAX] [SXG] 



[FETCH AC&I] 

[FETCH ACS I] 

[FETCH AC&I] 

[FETCH ACS I] 

[FETCH ACS I] 

[FETCH AC&I] 

[FETCH AC&I] 

[FETCH mem: 

[FETCH AC&MEM] 

[FETCH AC&MEM] 

[FETCH AC&MEM] 

[FETCH AC6MEM] 

[FETCH AC&MEM] 

[FETCH AC6MEM] 

[FETCH AC&MEH] 

[TO NOWHERE] 

[FETCH AC(nX)] 

[FETCH AC (MX)] 

[FETCH AC (MX)] 

[JXA] [MCE] [MCE] [I FETCH] 

[FETCH AC (MX)] [JXGE] [MCE] [I FETCH] 

[FETCH AC (MX)] [JXN] [MCE] [I FETCH] 

[FETCH AC (MX)] [JXG] [MCE] [I FETCH] 

[FETCH MEM] [SKIPX] 

[SXL] [MCE] [SKIPX] 
[SXE] [MCE] [SKIPX] 
[SXLE] [MCE] [SKIPX] 
[SXA] [MCE] [SKIPX] 
[SXGE] [MCE] [SKIPX] 
[SXN] [MCE] [SKIPX] 



[JXL] [MCE] 
[JXE] [MCE] 
[JXLE] [MCE] 



[IFETCH]##[MUU0] 

320 
["FETCH] 
[I FETCH] 
[i FETCH] 



71'»0i» JRST 1, 
CAIE 71'»10 JRST 2, 
CAILE 71'«1'» JRST 3, 
CAIA 71^20 JRST k, 
CAIGE 71'»2'» JRST 5. 
CAIN 7H30 JRST 6, 
CAIG 7M*ik JRST 7. 
CAM 71'»'»0 JRST 10, 
CAML 7}kkk JRST 11, 
CAME 71 '♦SO JRST 12, 
CAMLE 71'»5^ JRST 13. 
CAMA 71460 JRST U. 
CAMGE 7}k(>i* JRST 15. 
CAMN 7T»70 JRST 16, 

71'»7'« JRST 17, 



[FETCH MEM] 

[FETCH MEM] 

[FETCH MEM] 

[FETCH MEM] 

[FETCH MEM] 

[FETCH MEM] 

[FETCH MEM] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH AC] 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AO/.XJ 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AOXX] 

[FETCH MEM(W)] [AOXX] 

[FETCH AC] 

[FETCH AC] 



321 
322 
323 

325 
326 
327 
330 
331 
332 
333 
33*. 
335 
336 
337 
3<tO 

3'»l 
3'»2 
3^3 
3i»<t 
3'»5 
3'»6 

:3'»7 



[FETCH AC] 
[FETCH AC] 
TFETCH AC] 



[SXG] [MCE] [SKIPX] 

[AOXX] [TO AC] 

[AOXX] [JXL] [TO AC] 

[AOXX] [JXE] [TO AC] 

[AOXX] [JXLE] [TO AC] 

[AOXX] [JXA] [TO AC] 

[AOXX] [JXGE] [TO AC] 

[AOXX] [JXN] [TO AC] 

[AOXX] [JXG] [TO AC] 

[BACK TO SELF] 
[SXL] [BACK TO SELF] 
[SXE] [BACK TO SELF] 
[SXLE] [BACK TO SELF] 
[SXA] [BACK TO SELF] 
[SXGE] [BACK TO SELF] 
[SXN] [BACK TO SELF] 
[SXG] [BACK TO SELF] 

[SOXX] [TO AC] :360 

[SOXX] [JXL] [TO AC] :36l 

[SOXX] [JXE] [TO AC] :362 

[SOXX] [JXLE] [TO AC] ;363 

[SOXX] [JXA] [TO AC] liSk 



ADD I 713'«'« 
ADDM 71350 
ADDB 7135'* 
SUB 71360 
SUB I 7136-' 
SUBM 71370 
SUBB 71371» 
CAI 71'*00 

;301 CAIL 

;302 

:303 
:30'» 
;305 
;306 

;307 
;310 

;3ii 
;312 

:313 

:3l'» 

;315 

;316 

:317 CAMG 
JUMP 71500 
JUMPL 7150*4 
JUMPE 71510 
JUMPLE 7151'* 
JUMPA 71520 
JUMPGE 71524 
JUMPN 71530 
JUMPG 71534 
SKIP 71540 
SKIPL 71544 
SKIPE 71550 
SKIPLE 71554 
SKI PA 71560 
SKIPGE 71564 
SKIPN 71570 
SKIPG 71574 
AOJ 71600 
AOJL 71604 
AOJE 71610 
AOJLE 71614 
AOJ A 71620 
AOJGE 71624 
AOJN 71630 
AOJG 71634 

:350 AOS 71640 



;35i 

:352 

:353 

:354 

;355 

;356 

;357 
SO J 71700 
SOJL 71704 
SOJE 71710 
SOJLE 71714 
SOJA 71720 



AOSL 7>64lt 
AOSE 71650 
AOSLE 71654 
AOSA 71660 
AOSGE 71664 
AOSN 71670 
71674 



AOSG 



[FETCH AC] [SOXX] [JXGE] [TO AC] 
[FETCH AC] [SOXX] [JXN] [TO AC] 
[FETCH AC] [SOXX] [JXG] [TO AC] 
[FETCH «EM(W)] [SOXX] [BACK TO SELF] 



365 
366 
367 



[SXL] [BACK TO SELF] 
[SXE] [BACK TO SELF] 
[SXLE] [BACK TO SELF] 
[SXA] [BACK TO SELF] 
[SXGE] [BACK TO SELF] 
[SXN] [BACK TO SELF] 
[SXG] [BACK TO SELF] 

i»00 
401 
1»02 
kOi 
kOk 
i»05 
J»06 
i»07 
i»10 



[FETCH nE«(W)] [SOXX] 

[FETCH HEM(W)] [SOXX] 

[FETCH «E«(W)] [SOXX] 

[FETCH nEM(W)] [SOXX] 

[FETCH ME«(W)T [SOXX] 

[FETCH MEH(W)J [SOXX] 

[FETCH ME«(W)] [SOXX] 

[SETZX] [TO AC] 

[SETZX] [TO AC] 

[SETZX] [TO MEM] 

[SETZX] [TO BOTH] 

[FETCH AC&MEM] [ANDX] [TO AC] 

[FETCH ACS I] [ANDX] [TO AC] 

[FETCH AC&MEM (W)] [ANDX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [ANDX] [TO BOTH] 

[FETCH AC&MEM] [ANDCAX] [TO AC] 

[FETCH AC&I] [ANDCAX] [TO AC] 

[FETCH AC&MEM (W)] [ANDCAX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [ANDCAX] [TO BOTH] 

[FETCH MEM] [TO AC] 

[XMOVEI] [MCE] [TO AC] 

[FETCH MEM(W)] [BACK TO MEM] 

[FETCH MEM(W)] [TO BOTH] 

[FETCH AC&MEM] [ANDCMX] [TO AC] 

[FETCH AC&I] [ANDCMX] [TO AC] 

[FETCH AC&MEM (W)] [ANDCMX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [ANDCMX] [TO BOTH] 

[TO NOWHERE] 

[TO NOWHERE] 

[FETCH AC] [TO MEM] 

[FETCH AC] [TO MEM] 

[FETCH AC&MEM] [XORX] [TO AC] 

[FETCH AC&I] [XORX] [TO AC] 

[FETCH AC&MEM (W)] [XORX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [XORX] [TO BOTH] 

[FETCH AC&MEM] [lORX] [TO AC] 

[FETCH AC&I] [lORX] [TO AC] 

[FETCH AC&MEM (W)] [lORX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [lORX] [TO BOTH] 

[FETCH AC&MEM] [ANDCBX] [TO AC] 

[FETCH AC&I] [ANDCBX] [TO AC] 

[FETCH AC&MEM (W)] [ANDCBX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [ANDCBX] [TO BOTH] 

[FETCH AC&MEM] [EQVX] [TO AC] 

[FETCH AC&I] [EQVX] [TO AC] 

[FETCH AC&MEM (W)] [EQVX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [EQVX] [TO BOTH] 

[FETCH AC] [SETCAX] [TO AC] 

[FETCH AC] [SETCAX] [TO AC] 

[FETCH AC] [SETCAX] [TO MEM] 

[FETCH AC] [SETCAX] [TO BOTH] 

[FETCH AC&MEM] [ORCAX] [TO AC] 

[FETCH AC&I] [ORCAX] [TO AC] 

[FETCH AC&MEM (W)] [ORCAX] [BACK TO MEM] 

[FETCH AC&MEM (W)] [ORCAX] [TO BOTH] 

[FETCH MEM] [SETCMX] [TO AC] 



SOJGE 7172'» 

SOJN 71730 

S0J6 7173'» 

;370 SOS 717'tO 
SOSL 717'»'» 
SOSE 71750 
SOSLE 71754 
SOSA 71760 
SOSGE 71764 
SOSN 71770 
SOSG 



413 
414 

^♦15 
416 

417 
420 
421 

'.23 
424 

425 
426 
427 
430 
431 
432 
433 
434 

435 
436 
437 
440 
441 

4I»3 
444 

4'*5 
446 
447 
450 
'•SI 
452 

'•53 
454 

'•SS 
456 

'.57 
460 



7177'» 



:37l 

;372 

;373 

:37'» 

;375 

:376 

:377 
SETZ 72000 
SETZI 7200i» 
SETZM 72010 
SETZB 72014 
AND 72020 
AND I 72024 
ANDM 72030 
ANDB 72034 
ANDCA 72040 
ANDCAI 72044 

:lt12 ANDCAM 72050 
ANDCAB 72054 
SETM 72060 
SETMI XMOVEI 72064 
SETMM 72070 
SETMB 7207'« 
ANDCM 72100 
ANDCMI 72104 

:422 ANDCMM 72110 
ANDCMB 72114 
SETA (no-op) 72120 
SETA I (no-op) 72124 
SETAM (- nOVEM) 72130 
SETAB (• MOVEM) 72134 
XOR 72140 
XORI 72144 
XORM 72150 
XORB 72154 
(OR 72160 
I OR I 72164 
lORM /2170 
I ORB 72174 
ANDCB 72200 
ANDCBi 72204 

:442 ANDCBM 72210 
ANDCBB 72214 
EQV 72220 
EQVl 72224 
EQVM 72230 
EQVB 72234 
SETCA 72240 
SETCAI 72244 
SETCAM 72250 
SETCAB 72254 
ORCA 72260 
ORCAI 72264 
ORCAM 72270 
ORCAB 7227'* 
SETCM 72300 



[FETCH I J [SETCMX] [TO AC] 
[FETCH MEM{W)] [SETCMX] [BACK TO MEM] 
[FETCH MEM(W)] [SETCMX] [TO BOTH] 
[FETCH ACSMEM] [ORHMX] [TO AC] 
[FETCH AC&I] [ORCMX] [TO AC] 
[FETCH AC&MEM(W)] [ORCMX] [BACK TO MEM] 
[FETCH AC&MEM(W)] [ORCMX] [TO BOTH] 
[FETCH AC&MEM] [ORCBX] [TO AC] 
[FETCH ACS I] [ORCBX] [TO AC] 
[FETCH AC6MEM(W)] [ORCBX] [BACK TO MEM] 
[FETCH AC&MEM(W)j [ORCBX] [TO BOTH] 
[SETOX] [TO AC] 
[SETOX] [TO AC] 
[SETOX] [TO MEM] 
[SETOX] [TO BOTH] 
[FETCH AC&MEM] [HLL] [TO AC] 
[FETCH AC] [XHLLI] [TO AC.O] 
[FETCH AC&MEM(W)] [HLLM] [TO MEM] 
[FETCH MEM(W)] [BACK TO SELF] 
[FETCH AC&MEM] [HRL] [AC TO >.C] 
[FETCH ACS I] [HRL] [AC TO AC] 
[FETCH AC&MEM(W)] [HRLM] [TO MEM] 
[FETCH AC6MEM(W)] [HRLS] [BACK TO SELF] 
[FETCH MEM] [HLLZX] [MCE] [TO AC] 
[FETCH I] [HLLZX] [MCE] [TO AC] 
[FETCH AC] [HLLZX] [MCE] [TO MEM] 
[FETCH MEM(W)] [HLLZX] [MCE] [BACK TO SE 
[FETCH MEM] [MOVSX] [HLLZX] [TO AC] 
IF/FAST 

[MOVS I ] 

.END IF/FAST 

, IFNOT/FAST 

[FETCH I] 

.ENDIF/FAST 

[FETCH AC] [MOVSX] [HLLZX] [TO MEM] 
[FETCH MEM(W)] [MOVSX] [HLLZX] [BACK TO 
[FETCH MEM] [HLLOX] [MCE] [TO AC] 
[FETCH I] [HLLOX] [MCE] [TO AC] 
[FETCH AC] [HLLOX] [MCE] [TO MEM] 
[FETCH MEM(W)] [HLLOX] [MCE] [BACK TO SE 
[FETCH MEM] [MOVSX] [HLLOX] [TO AC] 
[FETCH I] [MOVSX] [HLLOX] [TO AC] 
[FETCH AC] [MOVSX] [HLLOX] [TO MEM] 
[FETCH MEM(W)] [MOVSX] [HLLOX] [BACK TO 
[FETCH MEM] [HLIEX] [MCE] [TO AC] 
[FETCH I] [HLLEX] [MCE] [TO AC] 
[FETCH AC (MX)] [HLLEX] [MCE] [TO MEM] 
[FETCH MEM(W)] [HLLEX] [MCE] [BACK TO SE 
[FETCH MEM] [MOVSX] [HRL EX] [TO AC] 
[FETCH i] [MOVSX] [HRLEX] [TO AC] 
[FETCH AC (MX)] [MOVSX] [HRLEX] [TO MEM] 
[FETCH MEM(W)] [MOVSX] [HRLEX] [BACK TO 
[FETCH ACtMEM] [HRR] [TO AC] 
[FETCH AC* I] [HRR] [TO AC] 
[FETCH AC*MLM(W)] [HRRM] [TO MEM] 
[FETCH MEM(W)] [BACK TO SELF] 
[FETCH ACtMEM] [HLR] [AC TO AC] 
[FETCH AC»I] [HLR] [AC TO AC] 
[FETCH ACiMEMCW)] [HLRM] [TO MEM] 
[FETCH ACftMEM(W)] [HLRS] [BACK TO SELF] 



k(>] SETCM! 7230i» 
1»62 SETCMM 72310 
U63 SETCMB 723 U 
l»6it ORCM 72320 
i*(>5 ORCMI 7232^ 
1»66 ORCMM 72330 
i»67 ORCMB 7233'» 
i470 ORCB 723'»0 
1»71 ORCB I 723'»'« 
li72 ORCBM 72350 
i»73 ORCBB 7235'* 
kjk SETO 72360 
i«75 SETO I 7236'* 
i»76 SETOM 72370 
^♦77 SETOB 7237'* 

500 HLL 72'»00 

501 HLL I XHLLI 72i»Oi» 

502 HLLM 72i»10 

503 HLLS 72i»ll» 
50i» HRL 72J»20 

505 HRLl 72l»2i» 

506 HRLM 72i«30 

507 HRLS 72i»3'« 

510 HLLZ 72'»i»0 

511 HLLZ I 72kkk 

512 HLLZM 721»50 

LF] ;513 HLLZS 72i»5'» 
5H HRLZ 72^60 

515 HRLZI 72'»6'» 



[MOVSX] [HLLZX] [TO AC] 



;515 HRLZI 72'»6i« 

;516 HRLZM 72l»70 

SELF] :517 HRLZS 72'»7'* 

:520 HLLO 72500 

;521 HLLOI 72504 

:522 HLLOM 72510 

LF] :523 HLLOS 7251^ 
:52i» HRLO 72520 
;525 HRLOI 7252U 
;526 HRLOM 72530 

SELF] ;527 HRLOS 7253*» 
;530 HLLE 725^0 

;531 HLLE I 725'»'» 

532 HLLEM 72550 

LF] ;533 HLLES 7255^ 

534 HRLE 72560 

535 HRLE I 72561* 

536 HRLEM 72570 
SELF] :537 HRLES 7257'» 

5'»0 HRR 72600 

5'»1 KRRi 726OJ* 

51*2 HRRM 72610 

5'*3 HRRS 726 U 

51»1» HLR 72620 

545 HLR I 72621» 

546 HLRM 72630 
5'»7 HLRS 72634 



[FETCH MEM] [HRRZX] [MCE] [TO AC] 

.IF/FAST 

[MOVE I] 

.END IF/FAST 
IF NOT/FAST 

[FETCH I] [HRRZX] [MCE] [TO AC] 

• END IF/FAST 

[FETCH AC] [HRRZX] [MCE] [TO MEM] 

[FETCH MEM(W)] [HRRZX] [MCE] [BACK TO SELF] 

[FETCH MEM] [MOVSX] [HRRZX] [TO AC] 

[FETCH I] [MOVSX] [HRRZX] [TO AC] 

[FETCH AC] [MOVSX] [HRRZX] [TO MEM] 

[FETCH MEM(W)] [MOVSX] [HRRZX] [BACK TO SELF] 

[FETCH MEM] [HRROX] [MCE] [TO AC] 

[FETCH I] [HRROX] [MCE] [TO AC] 

[FETCH AC] [HRROX] [MCE] [TO MEM] 

[FETCH MEM(W)] [HRROX] [MCE] [BACK TO SELF] 

[FETCH MEM] [MOVSX] [HRROX] [TO AC] 

[FETCH I] [MOVSX] [HRROX] [TO AC] 

[FETCH AC] [MOVSX] [HRROX] [TO MEM] 

[FETCH MEM(W)] [MOVSX] [HRROX] [BACK TO SELF] 

[FETCH MEM] [HRREX] [MCE] [TO AC] 

[FETCH I] [HRREX] [MCE] [TO AC] 

[FETCH AC (MX)] [HRREX] [MCE] [TO MEM] 

[FETCH MEM(W)] [HRREX] [MCE] [BACK TO SELF] 

[FETCH MEM] [MOVSX] [HRREX] [TO AC] 

[FETCH I] [MOVSX] [HRREX] [TO AC] 

[FETCH AC (MX)] [MOVSX] [HRREX] [TO MEM] 

[FETCH MwM(W)] [MOVSX] [HRREX] [BACK TO SELF] 

[TO NOWHERE] 

[TO NOWHERE] 



:550 HRRZ 726iiO 



;551 HRRZ I 7261»1» 



:35l HRRZ I 726U 

552 HRRZM 72650 

553 HRRZS 72&5'» 
55'* HLRZ 72660 
535 HLRZ I 72661* 

556 HLRZM 72670 

557 HLRZS 7267'* 
560 HRRO 72700 

;56l HRRO I 7270i» 

:562 HRROM 72710 
:563 HRROS 7271'* 
;561» HLRO 72720 
:565 HLROI 7272i* 
;566 HLROM 72730 
:567 HLROS 7273^ 
:570 HRRE 727'»0 

:57i HRRE I 727'»'« 

572 HRREM 72750 

573 HRRES 72751* 
57't HLRE 72760 
p75 HLRE I 7276i» 

576 HLREM 72770 

577 HLRES 7277'« 



[TRX] 


[TXE] 


[1 FETCH] 


[TLX] 


[TXE] 


[1 FETCH] 


[TRX] 


[TXA] 


[1 FETCH] 


[TLX] 


[TXA] 


[1 FETCH] 


[TRX] 


[TXN] 


[1 FETCH] 


[TLX] 


[TXN] 


[1 FETCH] 


[TDX] 


[1 FETCH] 


[TSX] 


[1 FETCH] 


[TDX] 


[TXE] 


[1 FETCH] 


[TSX] 


[TXE] 


[1 FETCH] 


[TDX] 


[TXA] 


[1 FETCH] 


[TSX] 


[TXA] 


[1 FETCH] 


[TDX] 


[TXN] 


[1 FETCH] 


[TSX] 


[TXN] 


[1 FETCH] 


[TRX] 


[TXZ] 




[TLX] 


[TXZ] 




[TRX] 


[TXE] 


[TXZ] 


[TLX] 


[TXE] 


[TXZ] 


[TRX] 


[TXA] 


[TXZ] 


[TLX] 


[TXA] 


[TXZ] 


[TRX] 


[TXN] 


[TXZ] 


[TLX] 


[TXN] 


[TXZ] 


[TDX] 


[TXZ] 




[TSX] 


[TXZ] 




[TDX] 


[TXE] 


[TXZ] 


[TSX] 


[TXE] 


[TXZ] 


[TDX] 


[TXA] 


[TXZ] 


[TSX] 


[TXA] 


[TXZ] 


[TDX] 


[TXN] 


[TXZ] 



600 TRN 73000 

601 TLN 73004 

602 TRNE 73010 

603 TLNE 730 U 

604 TRNA 73020 

605 TLNA 7302U 

606 TRNN 73030 

607 TLNN 73034 

610 TDN 73040 

611 TSN 73044 

612 TONE 73050 

613 TSNE 73054 

614 TDN A 73060 

615 TSN A 73064 

616 TDNN 73070 

617 TSNN 73074 

620 TRZ 73100 

621 TLZ 73104 

622 TRZE 73110 

623 TLZE 73114 

624 TRZA 73120 

625 TLZA 73124 

626 TRZN 73130 

627 TLZN 73134 

630 TDZ 73140 

631 TSZ 73144 

632 TDZE 73150 

633 TSZE 73154 

634 TDZA 73160 

635 TSZA 73164 

636 TDZN 73170 



[TSX] [TXN] [TX2] 

[TRX] [TXC] 

[TLX] [TXC] 

[TRX] [TXE] [TXC] 

[TLX] [TXE] [TXC] 

[TRX] [TXA] [TXC] 

[TLX] [TXA] [TXC] 

[TRX] [TXN] [TXC] 

[TLX] [TXN] [TXC] 

[TDX] [TXC] 

[TSX] [TXC] 

[TDX] [TXE] [TXC] 

[TSX] [TXE] [TXC] 

[TDX] [TXA] [TXC] 

[TSX] [TXA] [TXC] 

[TDX] [TXN] [TXC] 

[TSX] [TXN] [TXC] 

[TRX] [TXO] 

[TLX] [TXO] 

[TRX] [TXE] [TXO] 

[TLX] [TXE] [TXO] 

[TRX] [TXA] [TXO] 

[TLX] [TXA] [TXO] 

[TRX] [TXN] [TXO] 

[TLX] [TXN] [TXO] 

[TDX] [TXO] 

[TSX] [TXO] 

[TDX] [TXE] [TXO] 

[TSX] [TXE] [TXO] 

[TDX] [TXA] [TXO] 

[TSX] [TXA] [TXO] 

[TDX] [TXN] [TXO] 

[TSX] [TXN] [TXO] 

[10] 

[10] 

[10] 

[10] 

[10] 

[10] 

[10] 

[10] 

[10 EFA] [FETCH AC& 

[10 EFA] [FETCH ACS 

[10 EFA] [FETCH 10] 

[10 EFA] [WRIO] 

[10 EFA] [FETCH AC& 

[10 EFA] [FETCH ACS 

[10] 

[10] 

[MUUO] 

[nuuo] 

. I F/DEBUGTTY 

[RDTTY] 
, END I F/DEBUGTTY 
. IFNOT/DEBUGTTY 

[NUUO] 
.END I F/DEBUGTTY 

[nuuo] 
[nuuo] 
[nuuo] 



637 TSZN 7i}Tk 
SitO TRC 73200 
6itl TLC 7320A 
61i2 TRCE 73210 
61»3 TLCE 7321't 
6J»i» TRCA 73220 
61»5 TLCA 7322i» 
646 TRCN 73230 
6it7 TLCN 7323'* 

650 TDC 73240 

651 TSC 732U 

652 TDCE 73250 

653 TSCE 73254 

654 TDCA 73260 

655 TSCA 73264 

656 TDCN 73270 

657 TSCN 73274 

660 TRO 73300 

661 TLO 73304 

662 TROE 73310 

663 TLriE 73314 

664 TROA 73320 

665 TLOA 73324 

666 TRON 73330 

667 TLON 73334 

670 TDO 73340 

671 TSO 73344 

672 TDOE 73350 

673 TSOE 73354 

674 TDOA 73360 

675 TSOA 73364 

676 TOON 73370 

677 TSON 73374 

700 10 73400 

701 10 73404 

702 10 73410 

703 10 73414 

704 10 73420 

705 10 73424 

706 10 73430 

707 10 73434 

10] [TIOE] ;710 TIDE 73440 
10] [TION] ;7n TION 73444 
[TO AC] ;712 RDIO 73450 
;713 WRIO 73454 
10] [BSIO] ;714 BSIO 73460 
10] [BCIO] ;715 BCIO 73^64 
;716 10 73470 
:717 10 73'»74 ' 
:720 TIOEB 73500 
;721 TIONB 73504 

;722 RDIOB 73510 



;722 RDIOB 73510 

723 WRIOB 73514 

724 BSIOB 73520 

725 BCIOB 73524 



[10] 




726 1 


73530 


[10] 




727 i 


7353^ 


[10] 




730 1 


735i.O 


[10] 




731 1 


735i»i» 


[10] 




732 1 


73550 


[10] 




733 1 


7355'* 


[10] 




nt* 1 


73560 


[10] 




735 1 


7356if 


[10] 




736 1 


73570 


[10] 




737 1 


7357i» 


.IF/FTCIS 








[CIS SETUP] 


[MOVC] : 


7ifO 1 


737i»0 


[CIS SETUP] 


[CMPC] ; 


7ifl 1 


737i»i» 


[CIS SETUP] 


[MOVCV] ; 


7i.2 1 


73610 


[CIS SETUP] 


[CMPCV] ; 


7i»3 1 


736li« 


[CIS SETUP] 


[CMPND] ; 


7ifif 1 


73620 


[CIS SETUP] 


[ADDND] ; 


7i»5 1 


7362A 


[CIS SETUP] 


[SUBND] ; 


7if6 1 


73630 


[CIS SETUP] 


[nOVND] ; 


7i»7 1 


7363i» 


[CIS SETUP] 


[CVTNDB] i 


750 1 


736if0 


[CIS SETUP] 


[CMPP] i 


751 1 


736ifi» 


[CIS SETUP] 


[ADDP] 


752 1 


73650 


[CIS SETUP] 


[SUSP] 


753 1 


7365i» 


[CIS SETUP] 


[ttOVP] 


75i» 1 


73660 


[CIS SETUP] 


[CHOP] 


755 1 


7366i« 


.ENDIF/FTCIS 








.IFNOT/FTCIS 








[10 i»] 




7ifO i 


73600 


[10 i.] 




7ifl 1 


7360if 


[10 i.] 




.7i»2 1 


73610 


[10 i.] 




nk3 1 


736li» 


[10 i»] 




iT*k 


73620 


[10 If] 




;7i.5 


7362i» 


[10 if] 




;7i»6 


73630 


[10 i»] 




;7i»7 


7363i» 


[10 i.] 




:750 


736if0 


[10 4] 




;75l 


736ifi» 


[10 i»] 




5 752 


73650 


[10 i»] 




;753 


73654 


[10 i.] 




;75i» 


73660 


[10 J»] 




:755 


7366i» 


.ENDIF/FTCIS 








[10 i»] 




;756 


73670 


[10 i»] 




;757 


7367if 


[10 i»] 




;76o 


73700 


[10 4] 




:76l 


7370if 


[10 if] 




:762 


73710 


[10 If] 




;763 


73714 


[10 if] 




;76i. 


73720 


[10 if] 




;765 


7372i« 


[10 if] 




;766 


73730 


[10 if] 




;767 


7373i» 


[10 if] 




;770 


737i»0 


[10 if] 




;77l 


737'»if 


[10 if] 




;772 


73750 


[10 if] 




:773 


73754 


[10 if] 




;77i» 


10 73760 


[10 if] 




:775 


10 73764 


[10 if] 




;776 


10 73770 


[10 if] 




;777 


10 73774 



